14 lines
559 B
Text
14 lines
559 B
Text
(substring-8-bit=
|
|
@("8-bit string":%@ ?"String with first character removed")
|
|
& @("8-bit string":?"String with last character removed" @)
|
|
& @( "8-bit string"
|
|
: %@ ?"String with both the first and last characters removed" @
|
|
)
|
|
& out
|
|
$ ("String with first character removed:" !"String with first character removed")
|
|
& out
|
|
$ ("String with last character removed:" !"String with last character removed")
|
|
& out
|
|
$ ( "String with both the first and last characters removed:"
|
|
!"String with both the first and last characters removed"
|
|
));
|