Slava Pestov's weblog, primarily about Factor.
: swap-vars [ [ get ] 2apply ] 2keep [ set ] 2apply ;
5 "x" set7 "y" set"x" "y" swap-vars"x" get "y" get 2array .==> { 7 5 }
Post a Comment
No comments:
Post a Comment