Sudan function: Difference between revisions
m
oops, remove extra header
(Add Factor) |
m (oops, remove extra header) |
||
Line 384:
Or with locals:
<lang factor>USING: combinators kernel locals math prettyprint ;
Line 393 ⟶ 391:
{ [ y zero? ] [ x ] }
[ n 1 - n x y 1 - sudan dup y + sudan ]
} cond ;</lang>
=={{header|FreeBASIC}}==
|