Hunt The Wumpus/APL: Difference between revisions

Fixed PRNG seed for modern GNU APL
(GNU APL version of Hunt the Wumpus)
 
(Fixed PRNG seed for modern GNU APL)
Line 53:
c←c⍪⊃(5 12 17)(6 11 18)(7 14 18)(8 13 19)(9 16 17)
c←c⍪⊃(10 15 19)(11 20 15)(12 13 20)(14 16 20)(17 18 19)
 
∇initPRNG
⍝⍝ Seed the internal PRNG used by APL ? operator
⎕rl ← +/ ⎕ts ⍝⍝ Not great... but good enough
 
Line 70 ⟶ 75:
⍝⍝ Initialization
⎕rl←(2*32)|×/⎕tsinitPRNG ⍝ Initialize random seed from time
arrows←5 ⍝ Start with 5 arrows
rooms←20/0 ⍝ 20 empty rooms
67

edits