Advertisement
Guest User

MakePalindrome

a guest
Oct 20th, 2014
230
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.13 KB | None | 0 0
  1. (define (MakePalindrome L)
  2.   (cond ((= (length l) 1) (list (car l)))
  3.         (else (> (length l) 1) (append l (cdr (reverse L))))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement