8 lines
281 B
Text
8 lines
281 B
Text
#s := 'hello world shortest program'.
|
|
#n := 13.
|
|
#m := 4.
|
|
inform: (s copyFrom: n to: n + m).
|
|
inform: (s copyFrom: n).
|
|
inform: s allButLast.
|
|
inform: (s copyFrom: (s indexOf: $w) to: (s indexOf: $w) + m).
|
|
inform: (s copyFrom: (s indexOfSubSeq: 'ro') to: (s indexOfSubSeq: 'ro') + m).
|