Guest User

Untitled

a guest
Feb 20th, 2018
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. if(consp(expr)){
  2. if(consp(lhs((Cons) expr)) && consp(rhs((Cons) expr))){
  3. return union(vars(lhs((Cons) expr)), vars(rhs((Cons) expr)));
  4. }else if(!consp(lhs ((Cons) expr)) && consp(rhs((Cons) expr))){
  5. if(stringp(lhs((Cons) expr))){
  6. Cons result = list(lhs((Cons) expr));
  7. return union(vars(rhs((Cons) expr)), result);
  8. }else{
  9. return vars(rhs((Cons) expr));
  10. }
  11. }else{
  12. if(stringp(rhs((Cons) expr))){
  13. Cons result = list(rhs((Cons) expr));
  14. return union(vars(lhs((Cons) expr)), result);
  15. }else{
  16. return vars(lhs((Cons) expr));
  17. }
  18. }
  19. }else{
  20. if (expr instanceof String){
  21. Cons result = list(expr);
  22. return result;
  23. }else{
  24. return null;
  25. }
  26. }
Add Comment
Please, Sign In to add comment