PROC usage = VOID: printf(($gl$, "Usage: please provide a string")); PROC longest word length = (STRING s) INT: ( INT longest word len := 0; INT word len := 0; FOR n TO UPB s DO # If whitespace, reset word length # IF isspace(s[n]) THEN word len := 0 # Else increment word length and update longest word length # ELSE word len +:= 1; IF word len > longest word len THEN longest word len := word len FI FI OD; longest word len ); # Get 1st command-line argument. Exit if empty # STRING s := argv(4); IF UPB s = 0 THEN usage; stop FI; INT longest word len := longest word length(s); print((whole(longest word len, 0), newline))
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:00:52. The solution was first committed on Jan 24 2023 12:12:05. 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.