aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Time for an 2014 update…

Browse source
This commit is contained in:
Ingy döt Net 2014-01-17 05:32:22 +00:00
parent 372c577f83
commit 09687c4926
2520 changed files with 34227 additions and 7318 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Pascals-triangle-Puzzle/PicoLisp/pascals-triangle-puzzle.l
View file

@ -1,25 +1,25 @@
(be number (@N @Max)
(@C box 0)
(^ @C (box 0))
(repeat)
(or
((@ >= (val (-> @C)) (-> @Max)) T (fail))
((@N inc (-> @C))) ) )
((^ @ (>= (val (-> @C)) (-> @Max))) T (fail))
((^ @N (inc (-> @C)))) ) )
(be + (@A @B @Sum)
(@ -> @A)
(@ -> @B)
(@Sum + (-> @A) (-> @B)) )
(^ @ (-> @A))
(^ @ (-> @B))
(^ @Sum (+ (-> @A) (-> @B))) )
(be + (@A @B @Sum)
(@ -> @A)
(@ -> @Sum)
(@B - (-> @Sum) (-> @A))
(^ @ (-> @A))
(^ @ (-> @Sum))
(^ @B (- (-> @Sum) (-> @A)))
T
(@ ge0 (-> @B)) )
(^ @ (ge0 (-> @B))) )
(be + (@A @B @Sum)
(number @A @Sum)
(@B - (-> @Sum) (-> @A)) )
(^ @B (- (-> @Sum) (-> @A))) )
#{
151