Best shuffle: Difference between revisions
m
→{{header|PL/I}}: fix language tags
Walterpachl (talk | contribs) m (→{{header|PL/I}}: fix language tags) |
|||
Line 2,002:
=={{header|PL/I}}==
<lang pli>shuffle: procedure options (main); /* 14/1/2011 */▼
▲shuffle: procedure options (main); /* 14/1/2011 */
declare (s, saves) character (20) varying, c character (1);
declare t(length(s)) bit (1);
Line 2,055 ⟶ 2,054:
end search;
end shuffle;</lang>
OUTPUT:
<pre>
abracadabra
baaracadrab 0
Line 2,070 ⟶ 2,069:
A
A 1
</
=={{header|PowerShell}}==
| |||