Hunt The Wumpus/APL: Difference between revisions
Fixed PRNG seed for modern GNU APL
Not a robot (talk | contribs) (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
arrows←5 ⍝ Start with 5 arrows
rooms←20/0 ⍝ 20 empty rooms
|