RosettaCodeData/Task/Substring-Top-and-tail/Factor/substring-top-and-tail.factor

4 lines
103 B
Factor

USING: io kernel sequences ;
"Rosetta code" [ rest ] [ but-last ] [ rest but-last ] tri
[ print ] tri@