15 lines
420 B
Factor
15 lines
420 B
Factor
|
|
USING: kernel sequences math combinators.lib ;
|
|
|
|
IN: lsys.strings
|
|
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
|
|
|
: has-param? ( slice -- ? ) { [ length 1 > ] [ second CHAR: ( = ] } <-&& ;
|
|
|
|
: next+rest ( slice -- next rest ) [ 1 head ] [ 1 tail-slice ] bi ;
|
|
|
|
: index-rest ( slice -- i ) CHAR: ) swap index 1+ ;
|
|
|
|
: next+rest* ( slice -- next rest ) dup index-rest [ head ] [ tail-slice ] 2bi ;
|