language-agnostic - 斐波那契 Code Golf

Question

锁定。这个问题及其答案是locked因为这个问题是题外话，但具有历史意义。它目前不接受新的答案或互动。








以尽可能少的字符生成斐波那契数列。任何语言都可以，除了您用一个运算符定义的语言，f , 打印斐波那契数列。

起点: 25 14 个字符 在 Haskell :

f=0:1:zipWith(+)f(tail f)

f=0:scanl(+)1f

Answer 1

RePeNt, 9, 8 个字符

1↓[2?+1]

或打印 10 个字符:

1↓[2?+↓£1]

运行使用:

RePeNt "1↓[2?+1]"

RePeNt 是我编写(并且仍在改进)的基于堆栈的玩具语言，其中所有运算符/函数/块/循环都使用反向波兰表示法 (RPN)。

Command      Explanation                                              Stack
-------      -----------                                              -----

1            Push a 1 onto the stack                                  1
↓            Push last stack value                                    1 1
[            Start a do-while loop                                    1 1
2?           Push a two, then pop the 2 and copy the last 2 stack     1 1 1 1
             items onto the stack
+            Add on the stack                                         1 1 2
↓£           Push last stack value then print it                      1 1 2
1            Push a 1 onto the stack                                  1 1 2 1
]            Pop value (1 in this case), if it is a 0 exit the loop   1 1 2
             otherwise go back to the loop start.

答案就在堆栈上，它的构建方式如下:

1 1
1 1 2
1 1 2 3
1 1 2 3 5

它永远不会终止(它具有 C#/JAVA do { } while(true) 循环的等效性)，因为序列永远不会终止，但可以这样编写终止解决方案:

N_1↓nI{2?+}

这是 12 个字符。

我想知道是否有人会读到这个:(