11 lines
201 B
Text
11 lines
201 B
Text
def when { [] if }
|
|
def unless { swap when }
|
|
|
|
def bi { [keep] dip call }
|
|
def tri { [[keep] dip keep] dip call }
|
|
|
|
def times {
|
|
if: over 0 =
|
|
[drop drop]
|
|
[swap over >r >r call r> 1 - r> times];
|
|
}
|