| [Mumps2Py:] [41] test file demonstrating indexed vars. |
[ Thread Index |
Date Index
| More lists.mumps2py.org/discuss Archives
]
Revision: 41
Author: pgallot
Date: 2008-01-21 20:32:02 +0000 (Mon, 21 Jan 2008)
Log Message:
-----------
test file demonstrating indexed vars.
Added Paths:
-----------
trunk/testfiles/for_indexedvars.mps
Added: trunk/testfiles/for_indexedvars.mps
===================================================================
--- trunk/testfiles/for_indexedvars.mps (rev 0)
+++ trunk/testfiles/for_indexedvars.mps 2008-01-21 20:32:02 UTC (rev 41)
@@ -0,0 +1,8 @@
+ s phrase="Good Morning, Dave"
+
+ F i=1:1:$L(phrase) s p(i)=$E(phrase,i) w p(i)
+ w !
+ F %=$L(phrase):-1:1 W p(%)
+ w !
+ F %test=$L(phrase):-1:1 W $C($A(p(%test))+1)
+ w ! F %test2=1:1:$L(phrase) W $C(1+$A(p(%test2)))