Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: d66c704183
Fetching contributors…

Cannot retrieve contributors at this time

executable file 22 lines (17 sloc) 0.337 kB
#!/bin/sh
#|
exec csi -ss $0 ${1+"$@"}
exit
|#
(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))))))
(for-all even? gen-int)
(for-all even? gen-even)
(for-all reversible gen-string)
(exit)
Jump to Line
Something went wrong with that request. Please try again.