Paste: Still no idea about cond
Author: | Leonidas |
Mode: | factor |
Date: | Wed, 24 Feb 2010 21:58:40 |
Plain Text |
: subtail short tail ;
: subtail* short tail* ;
: unclip-nlast 2dup subtail* [ subtail ] dip ;
: apply-rules {
{ [ dup 2 unclip-nlast { right left } = ] [ nip { left right } append t ] }
[ f ]
} cond ;
Author: | Leonidas |
Mode: | factor |
Date: | Wed, 24 Feb 2010 22:11:32 |
Plain Text |
: subtail short tail ;
: subtail* short tail* ;
: unclip-nlast 2dup subtail* [ subtail ] dip ;
: apply-rules {
{ [ dup 2 unclip-nlast { right left } = ] [ nip { left right } append t ] }
[ drop f ]
} cond ;
New Annotation