[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Pingus-CVS] rev 2218 - trunk/src
From: |
Ingo Ruhnke |
Subject: |
[Pingus-CVS] rev 2218 - trunk/src |
Date: |
Tue, 06 Apr 2004 05:13:53 +0200 |
Author: grumbel
Date: 2004-04-06 05:13:53 +0200 (Tue, 06 Apr 2004)
New Revision: 2218
Added:
trunk/src/fib.xml
trunk/src/prim.xml
Log:
- some example script
Added: trunk/src/fib.xml
===================================================================
--- trunk/src/fib.xml 2004-04-06 03:08:44 UTC (rev 2217)
+++ trunk/src/fib.xml 2004-04-06 03:13:53 UTC (rev 2218)
@@ -0,0 +1,18 @@
+<block>
+ <set name="last1" var="0" />
+ <set name="last2" var="1" />
+
+ <function name="fib">
+ <set name="cur" var="last1" />
+ <add name="cur" var="last2" />
+
+ <printvar var="cur" />
+ <newline />
+
+ <set name="last1" var="last2" />
+ <set name="last2" var="cur" />
+ <funcall name="fib" />
+ </function>
+
+ <funcall name="fib" />
+</block>
\ No newline at end of file
Added: trunk/src/prim.xml
===================================================================
--- trunk/src/prim.xml 2004-04-06 03:08:44 UTC (rev 2217)
+++ trunk/src/prim.xml 2004-04-06 03:13:53 UTC (rev 2218)
@@ -0,0 +1,28 @@
+<block>
+ <function name="checkprim">
+ <set name="prim" var="1"/>
+
+ <set name="end" var="i" />
+ <add name="end" var="-1" />
+
+ <for name="j" start="2" end="end">
+ <set name="test" var="i" />
+ <modulo name="test" var="j" />
+
+ <if-zero var="test">
+ <set name="prim" var="0"/>
+ <set name="j" var="end"/><!-- break -->
+ </if-zero>
+ </for>
+
+ <if-non-zero var="prim">
+ <printvar var="i" />
+ <print string=" is prime" />
+ <newline />
+ </if-zero>
+ </function>
+
+ <for name="i" start="3" end="150">
+ <funcall name="checkprim" />
+ </for>
+</block>
\ No newline at end of file
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Pingus-CVS] rev 2218 - trunk/src,
Ingo Ruhnke <=