swap=: <@[ C. ]
move_to_front=: 0&,@[ swap ]
1 5 swap 'abcdefgh'
afcdebgh
3 move_to_front 'abc*ef'
*bcaef
--
Raul
On Tue, Jan 31, 2012 at 10:44 AM, David Ward Lambert
<b49p23t...@stny.rr.com> wrote:
> Are there simple versions of swap and of move_to_front that use C. , A.
> or (other)? My definitions use amend. Thank you, Dave.
>
> 1 5 swap 'abcdefgh'
> afcdebgh
>
> 3 move_to_front 'abc*ef'
> *abcef
>
>
> swap=: ({~ |.)~`[`]}
> move_to_front=: ((({~ _1&|.)~`[`]})~ i.@:>:)~
>
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
