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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
Task/Left-factorials/PicoLisp/left-factorials-1.l Normal file
View file

@ -0,0 +1,17 @@
(de n! (N)
(cache '(NIL) N
(if (> 2 N) 1
(* N (n! (dec N))))))
(de !n (Num)
(if (= Num 0) 1
(sum n! (range 0 (dec Num)))))
(de pril (List) (mapcar 'println List))
(prinl "0-10")
(pril (mapcar '!n (range 0 10)))
(prinl "20 - 110")
(pril (mapcar '!n (range 20 110 10)))
(prinl "length of 1000 - 10000")
(pril (mapcar 'length (mapcar '!n (range 1000 10000 1000))))

34
Task/Left-factorials/PicoLisp/left-factorials-2.l Normal file
View file

@ -0,0 +1,34 @@
0-10
1
1
2
4
10
34
154
874
5914
46234
409114
20 - 110
128425485935180314
9157958657951075573395300940314
20935051082417771847631371547939998232420940314
620960027832821612639424806694551108812720525606160920420940314
141074930726669571000530822087000522211656242116439949000980378746128920420940314
173639511802987526699717162409282876065556519849603157850853034644815111221599509216528920420940314
906089587987695346534516804650290637694024830011956365184327674619752094289696314882008531991840922336528920420940314
16695570072624210767034167688394623360733515163575864136345910335924039962404869510225723072235842668787507993136908442336528920420940314
942786239765826579160595268206839381354754349601050974345395410407078230249590414458830117442618180732911203520208889371641659121356556442336528920420940314
145722981061585297004706728001906071948635199234860720988658042536179281328615541936083296163475394237524337422204397431927131629058103519228197429698252556442336528920420940314
1000 - 10000
2565
5733
9128
12670
16322
20062
23875
27749
31678
35656