Finite state machine: Difference between revisions
m
→{{header|PicoLisp}}
(add PicoLisp) |
|||
Line 1,150:
Non-interactive random switch between states.
<lang PicoLisp>(seed (in "/dev/urandom" (rd 8)))
(de atm NIL
(state '(ready)
|