all tasks

This commit is contained in:
Ingy döt Net 2013-04-11 01:07:29 -07:00
parent b83f433714
commit 68f8f3e56b
14735 changed files with 178959 additions and 0 deletions

View file

@ -0,0 +1,4 @@
(define (print-all . things)
(for-each
(lambda (x) (display x) (newline))
things))

View file

@ -0,0 +1,5 @@
(define print-all
(lambda things
(for-each
(lambda (x) (display x) (newline))
things)))

View file

@ -0,0 +1,3 @@
(print-all 4 3 5 6 4 3)
(print-all 4 3 5)
(print-all "Rosetta" "Code" "Is" "Awseome!")

View file

@ -0,0 +1,2 @@
(define args '("Rosetta" "Code" "Is" "Awseome!"))
(apply print-all args)