Author: | paldepind |
---|---|
Mode: | factor |
Date: | Sat, 22 Dec 2012 12:13:45 |
! Takes a string two characers and replace every instance of char1 with char2 in the string : replace ( string char1 char1 -- string' ) [ [ over = ] dip swap [ swap drop ] [ drop ] if ] 2curry map ;
Author: | tgunr |
---|---|
Mode: | factor |
Date: | Sat, 22 Dec 2012 14:07:56 |
: replace ( string char char -- string' ) [ [ over = ] dip swap [ swap drop ] [ drop ] if ] 2curry map ;
Author: | noam |
---|---|
Mode: | factor |
Date: | Sat, 22 Dec 2012 18:00:03 |
: replace ( string char1 char1 -- string' ) '[ dup _ = [ drop _ ] when ] map ;