PROC usage = VOID: printf(($gl$, "Usage: please provide a string")); PROC remove all whitespace := (STRING s) STRING: ( STRING t; FOR n TO UPB s DO IF NOT isspace(s[n]) THEN t +:= s[n] FI OD; t ); # Get 1st command-line argument. Exit if empty # STRING s := argv(4); IF UPB s = 0 THEN usage; stop FI; # Remove all whitespace and display result # s := remove all whitespace(s); printf(($gl$, s))
If you see anything you’d like to change or update, please consider contributing.
Note: The solution shown above is the current solution in the Sample Programs repository as of Jan 31 2023 22:23:00. The solution was first committed on Jan 24 2023 20:53:00. As a result, documentation below may be outdated.
No ‘How to Implement the Solution’ section available. Please consider contributing.
No ‘How to Run the Solution’ section available. Please consider contributing.