newfx: invert-index

2008-07-02 11:42:49 -05:00 · 2008-07-02 11:42:49 -05:00 · a25254c7f4
parent 964549b224
commit a25254c7f4
1 changed files with 3 additions and 0 deletions
--- a/extra/newfx/newfx.factor
+++ b/extra/newfx/newfx.factor
@ -219,3 +219,6 @@ METHOD: as-mutate { object object assoc }       set-at ;
 : snipped!      ( seq a b --     )       rot delete-slice ;
 : snipped-from! ( a b seq --     )           delete-slice ;

+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: invert-index ( seq i -- seq i ) >r dup length 1 - r> - ;