tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Pascals-triangle-Puzzle/PicoLisp/pascals-triangle-puzzle.l
+++ b/Task/Pascals-triangle-Puzzle/PicoLisp/pascals-triangle-puzzle.l
@ -0,0 +1,43 @@
+(be number (@N @Max)
+   (@C box 0)
+   (repeat)
+   (or
+      ((@ >= (val (-> @C)) (-> @Max)) T (fail))
+      ((@N inc (-> @C))) ) )
+
+(be + (@A @B @Sum)
+   (@ -> @A)
+   (@ -> @B)
+   (@Sum + (-> @A) (-> @B)) )
+
+(be + (@A @B @Sum)
+   (@ -> @A)
+   (@ -> @Sum)
+   (@B - (-> @Sum) (-> @A))
+   T
+   (@ ge0 (-> @B)) )
+
+(be + (@A @B @Sum)
+   (number @A @Sum)
+   (@B - (-> @Sum) (-> @A)) )
+
+#{
+         151
+        A   B
+      40  C   D
+     E  F  G    H
+   X  11  Y   4   Z
+}#
+
+(be puzzle (@X @Y @Z)
+   (+ @A @B 151)
+   (+ 40 @C @A)
+   (+ @C @D @B)
+   (+ @E @F 40)
+   (+ @F @G @C)
+   (+ @G @H @D)
+   (+ @X 11 @E)
+   (+ 11 @Y @F)
+   (+ @Y 4 @G)
+   (+ 4 @Z @H)
+   (+ @X @Z @Y) )