6 lines
189 B
Forth
6 lines
189 B
Forth
: substrings(s, n, m)
|
|
s sub(n, m) println
|
|
s right(s size n - 1 +) println
|
|
s left(s size 1 - ) println
|
|
s sub(s indexOf('d'), m) println
|
|
s sub(s indexOfAll("de"), m) println ;
|