Fibonacci n-step number sequences: Difference between revisions

Content deleted Content added

Inline

@@ Line 2,255: / Line 2,255: @@
 lucasnacci: {2,1,3,4,7,11,18,29,47,76}
 </pre>
-=={{header|PicoLisp}}==
-<lang PicoLisp>(de nacci (Init Cnt)
-   (let N (length Init)
-      (make
-         (made Init)
-         (do (- Cnt N)
-            (link (apply + (tail N (made)))) ) ) ) )</lang>
-Test:
-<lang PicoLisp># Fibonacci
-: (nacci (1 1) 10)
--> (1 1 2 3 5 8 13 21 34 55)
-# Tribonacci
-: (nacci (1 1 2) 10)
--> (1 1 2 4 7 13 24 44 81 149)
-# Tetranacci
-: (nacci (1 1 2 4) 10)
--> (1 1 2 4 8 15 29 56 108 208)
-# Lucas
-: (nacci (2 1) 10)
--> (2 1 3 4 7 11 18 29 47 76)
-# Decanacci
-: (nacci (1 1 2 4 8 16 32 64 128 256) 15)
--> (1 1 2 4 8 16 32 64 128 256 512 1023 2045 4088 8172)</lang>
 =={{header|PHP}}==
@@ Line 2,380: / Line 2,352: @@
 DECANACCI => 1,1,2,4,8,16,32,64,128,256,512,1023,2045,4088,8172
 </pre>
+=={{header|PicoLisp}}==
+<lang PicoLisp>(de nacci (Init Cnt)
+   (let N (length Init)
+      (make
+         (made Init)
+         (do (- Cnt N)
+            (link (apply + (tail N (made)))) ) ) ) )</lang>
+Test:
+<lang PicoLisp># Fibonacci
+: (nacci (1 1) 10)
+-> (1 1 2 3 5 8 13 21 34 55)
+# Tribonacci
+: (nacci (1 1 2) 10)
+-> (1 1 2 4 7 13 24 44 81 149)
+# Tetranacci
+: (nacci (1 1 2 4) 10)
+-> (1 1 2 4 8 15 29 56 108 208)
+# Lucas
+: (nacci (2 1) 10)
+-> (2 1 3 4 7 11 18 29 47 76)
+# Decanacci
+: (nacci (1 1 2 4 8 16 32 64 128 256) 15)
+-> (1 1 2 4 8 16 32 64 128 256 512 1023 2045 4088 8172)</lang>
 =={{header|PL/I}}==