Revision as of 15:46, 17 December 2010 (view source) rosettacode>Abu m (Wrong command character) ← Older edit		Revision as of 15:50, 17 December 2010 (view source) rosettacode>Abu (Logic error) Newer edit →
Line 98: (out Sock (case @ # Command character ("\^" # Forward (ifn ((car Dir) Agent) # Hit wall? (prin "\|") # Yes: Bump event Line 113: ((not (: ball)) (prin "s")) # No ball in sector (Ball (prin "A")) # Agent full (T ~~(setq Ball (: ball))) ) ) )~~ (setq Ball (: ball)) (=: ball) ) ) ) ) ("!" # Drop ball (with *Agent

Remote agent/Simulation: Difference between revisions

Remote agent/Simulation (view source)