Tokenize a string: Difference between revisions
m
→{{header|PL/I}}: add output
Walterpachl (talk | contribs) m (→{{header|PL/I}}: add output) |
|||
Line 1,361:
=={{header|PL/I}}==
<lang pli>tok: Proc Options(main);
declare s character (100) initial ('Hello,How,Are,You,Today');
declare n fixed binary (31);
Line 1,383:
put skip list (string(table));
end;
end;</lang>
{{out}}
<pre>Hello.How.Are.You.Today</pre>
=={{header|Pop11}}==
| |||