[Pingus-CVS] rev 2218 - trunk/src

[Ingo Ruhnke]

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