all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Short-circuit-evaluation/PicoLisp/short-circuit-evaluation.l
+++ b/Task/Short-circuit-evaluation/PicoLisp/short-circuit-evaluation.l
@ -0,0 +1,14 @@
+(de a (F)
+   (msg 'a)
+   F )
+
+(de b (F)
+   (msg 'b)
+   F )
+
+(mapc
+   '((I J)
+      (for Op '(and or)
+         (println I Op J '-> (Op (a I) (b J))) ) )
+   '(NIL NIL T T)
+   '(NIL T NIL T) )