Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Reverse-a-string/OpenEdge-Progress/reverse-a-string.openedge
+++ b/Task/Reverse-a-string/OpenEdge-Progress/reverse-a-string.openedge
@ -0,0 +1,15 @@
+FUNCTION reverseString RETURNS CHARACTER (
+   INPUT i_c AS CHARACTER
+):
+
+   DEFINE VARIABLE cresult AS CHARACTER   NO-UNDO.
+   DEFINE VARIABLE ii      AS INTEGER     NO-UNDO.
+
+   DO ii = LENGTH( i_c ) TO 1 BY -1:
+      cresult = cresult + SUBSTRING( i_c, ii, 1 ).
+   END.
+   RETURN cresult.
+
+END FUNCTION.
+
+MESSAGE reverseString( "asdf" ) VIEW-AS ALERT-BOX.