Paste: control blocks

Author: KernelJ
Mode: factor
Date: Mon, 14 Nov 2011 18:31:58
Plain Text | 
: factor-2s ( n -- r s )
    dup 0 =
    [ 1 ]
    [ [ 0 ] dip [ dup even? ] [ [ 1 + ] [ 2/ ] bi* ] while ] if
    ; inline

: factor-2s ( n -- r s )
    dup 0 = if{
    [ 1 ]
    [ [ 0 ] dip [ dup even? ] while[ [ 1 + ] [ 2/ ] bi* ] ]
    } ; inline

New Annotation

Summary:
Author:
Mode:
Body: