shuffle: add nrev

2008-02-03 03:48:29 -06:00 · 2008-02-03 03:48:29 -06:00 · 7a5d48cadb
parent 303cb0edc2
commit 7a5d48cadb
1 changed files with 5 additions and 0 deletions
--- a/extra/shuffle/shuffle.factor
+++ b/extra/shuffle/shuffle.factor
@ -30,3 +30,8 @@ MACRO: ntuck ( n -- ) 2 + [ dup , -nrot ] bake ;
 : 4drop ( a b c d -- ) 3drop drop ; inline

 : tuckd ( x y z -- z x y z ) 2 ntuck ; inline
+
+MACRO: nrev ( n -- quot )
+  [ 1+ ] map
+  reverse
+  [ [ -nrot ] curry ] map concat ;