RosettaCodeData/Task/Binary-digits/PL-I/binary-digits-2.pli
2023-07-01 13:44:08 -04:00

7 lines
198 B
Text

declare text character (50) initial (' ');
put string(text) edit (25) (b);
put skip list (trim(text, '0'));
put string(text) edit (2147483647) (b);
put skip list (trim(text, '0'));