RosettaCodeData/Task/Reverse-a-string/MUMPS/reverse-a-string.mumps

7 lines
143 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
REVERSE
;Take in a string and reverse it using the built in function $REVERSE
NEW S
READ:30 "Enter a string: ",S
WRITE !,$REVERSE(S)
QUIT