Skip to content

Instantly share code, notes, and snippets.

@ijp

ijp/palindrome.scm

Created October 21, 2014 00:28
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save ijp/9e4c9c9a21821012cf34 to your computer and use it in GitHub Desktop.
Save ijp/9e4c9c9a21821012cf34 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
palindrome.scm
(define (make-palindrome l)
(define (loop l suffix)
(if (null? (cdr l))
(cons (car l) suffix)
(cons (car l)
(loop (cdr l) (cons (car l) suffix)))))
(if (null? l)
#f ; arbitrary choice
(loop l '())))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment