Author: jquelin
Date: Fri Jan 9 02:59:50 2009
New Revision: 35280
Modified:
trunk/languages/befunge/befunge.pir
trunk/languages/befunge/maths.pir
Log:
cleaning pseudo random stuff, now done with Random pmc
Modified: trunk/languages/befunge/befunge.pir
==============================================================================
--- trunk/languages/befunge/befunge.pir (original)
+++ trunk/languages/befunge/befunge.pir Fri Jan 9 02:59:50 2009
@@ -33,10 +33,6 @@
stack = new 'ResizablePMCArray'
set_global "stack", stack
- .local num seed
- seed = time
- seed = mod seed, .RANDMAX
-
.local string user_input
user_input = ""
Modified: trunk/languages/befunge/maths.pir
==============================================================================
--- trunk/languages/befunge/maths.pir (original)
+++ trunk/languages/befunge/maths.pir Fri Jan 9 02:59:50 2009
@@ -1,7 +1,5 @@
# $Id$
-.macro_const RANDMAX 65536.0
-
#
# push number on befunge's stack.
# befunge stack:
@@ -113,49 +111,6 @@
.end
-
-
-=pod
-
-# Create a pseudo-random number.
-# Parrot's stack:
-# before: ... max
-# after: ... rand
-# 0 <= rand < max
-MATHS_RAND:
- restore I10
- mul N0, N0, 5.0
- add N0, N0, 1.0
- mod N0, N0, .RANDMAX
- save N0
- restore N0
- set N10, I10
- mul N10, N0, N10
- div N10, N10, .RANDMAX
- set I10, N10
- save I10
- ret
-
-# Multiplication.
-# Befunge Stack:
-# before: ... a b
-# after: ... a*b
-MATHS_MUL:
- set I11, P2
- unless I11, MATHS_MUL_POP_1
- pop I11, P2
-MATHS_MUL_POP_1:
- set I10, P2
- unless I10, MATHS_MUL_POP_2
- pop I10, P2
-MATHS_MUL_POP_2:
- mul I12, I10, I11
- push P2, I12
- branch MOVE_PC
-
-
-=cut
-
########################################################################
# Local Variables:
# mode: pir
