Juggler sequence: Difference between revisions
→{{header|Factor}}: slight simplification
(Add Factor) |
(→{{header|Factor}}: slight simplification) |
||
Line 46:
: new-max ( l i h a -- l i h a )
[ drop dup ] 2dip nip dup
: (step) ( l i h a -- l i h a )
[ 1 + ] 3dip 2dup < [ new-max ]
: step ( l i h a -- l i h a )
| |||