Anonymous user
Anonymous recursion: Difference between revisions
no edit summary
(→{{header|Common Lisp}}: Just use the lisp tag for colorizing.) |
No edit summary |
||
Line 240:
<lang ela>let fix f = f (& fix f)</lang>
=={{header|Elena}}==
<lang elena>#define std'patterns'*.
#define ext'patterns'*.
#define std'dictionary'*.
#symbol fibo =
{
evaluate : aValue
[
Control ifNot:(aValue < 0).
^ aValue then: aValue => [
#if(aValue < 2)
? [ ^ aValue. ]
| [ ^ $self evaluate:(aValue - 2) + $self evaluate:(aValue - 1). ].
].
]
}.
#symbol Program =>
[
loop::&fromInteger:-1 &to:5 run: anN =>
[
'program'output << "%nfib(" << anN << ")=" << (fibo eval:anN | back:"failed").
].
].</lang>
=={{header|F#}}==
|