Revision as of 13:49, 27 May 2023 (view source) PSNOW123 (talk \| contribs) m (Added language identifier.) ← Older edit		Revision as of 17:45, 28 May 2023 (view source) Chkas (talk \| contribs) (→‎{{header\|EasyLang}}) Newer edit →
Line 455: <syntaxhighlight lang="text"> len cyl[] 6 ~~func~~proc rshift . . h = cyl[6] for i = 6 downto 2 cyl[i] = cyl[i - 1] . cyl[1] = h . ~~func~~proc unload . . for i = 1 to 6 cyl[i] = 0 . . ~~func~~proc load . . while cyl[1] = 1 call rshift . cyl[1] = 1 call rshift . ~~func~~proc spin . . lim = random 6 for i = 1 to lim - 1 call rshift . . ~~func~~proc fire . shot . shot = cyl[1] call rshift . ~~func~~proc method m[] . shot . call unload shot = 0 for m in m[] if m = 1 call load elif m = 2 call spin elif m = 3 call fire shot if shot = 1 break 1 . . . . . method$[] = [ "load" "spin" "fire" ] ~~func~~proc test m[] . . n = 100000 for i = 1 to n call method m[] shot sum += shot . for i = 1 to len m[] write method$[m[i]] & " " . print "-> " & 100 * sum / n & "% death" . call test [ 1 2 1 2 3 2 3 ]

Two bullet roulette (view source)