6 lines
87 B
Forth
6 lines
87 B
Forth
: SLEN ( a -- n )
|
|
DUP ( astart aend )
|
|
BEGIN C@+ NOT UNTIL
|
|
1- -^
|
|
;
|