tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 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.