Rosetta Code

Anonymous recursion: Difference between revisions

Page Discussion

Anonymous recursion (view source)

Revision as of 08:35, 12 September 2012

134 bytes removed ,  11 years ago
→‎{{header|Elena}}
Line 383:
#define std'patterns'*.
 
#symbol fibo : i =
[
{
evaluateControl ifNot:(i aValue< 0).
[▼
Control ifNot:(aValue < 0).
 
#if (i < 2)
^ aValue then: aValue => [
? [ ^ i. #if(aValue < 2)]
| [ ^ fibo::(i - 2) + fibo::(i ?- [ ^ aValue1). ].
}].▼
| [ ^ $self evaluate:(aValue - 2) + $self evaluate:(aValue - 1). ].
].
]
▲}.
 
#symbol Program =>
[
loop::{ &for&from:-1 &to:5 }10 run: anNi =>
[
'program'output << "%nfib(" << anNi << ")=" << (fibo eval:anN | back:"failed").
▲ [
'program'output << fibo::i | << "failed".
].
].</lang>
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/165989"