Permalink
Find file
6de1ecd Aug 13, 2014
@mcandre @apenneb
executable file 25 lines (18 sloc) 441 Bytes
":"; exec csi -ss $0 ${1+"$@"}
(use cluckcheck)
(define (gen-even)
(let ((n (gen-int)))
(if (not (= 0 (modulo n 2)))
(+ n 1)
n)))
(define (reversible s)
(string=? s (list->string (reverse (reverse (string->list s))))))
(define (main args)
(for-all even? gen-int)
(for-all even? gen-even)
(for-all reversible gen-string)
(exit))
(cond-expand
(chicken-compile-shared)
(compiling (main (command-line-arguments)))
(else))