Y combinator: Difference between revisions
→{{header|Joy}}
Line 389:
<lang joy>
DEFINE y == [dup cons] swap concat dup cons i;
fac == [ [pop null] [pop succ] [[dup pred] dip i *] ifte ] y.
</lang>
| |||
Line 389:
<lang joy>
DEFINE y == [dup cons] swap concat dup cons i;
fac == [ [pop null] [pop succ] [[dup pred] dip i *] ifte ] y.
</lang>
| |||
edits