labast/scripts/std/unix/ВАРЁНЫЙНОСОК.lb

; Labashki standard library
; Written by Labashki developer - aeris

maxsize
args 1 ; Насколько сварить носок
sub

@ 1
    jnz 2
    quit

@ 2
    #expr -
    push -1
    _unix_random
    swap
    jmp 1
initial commit 2024-02-05 12:13:44 +00:00			`; Labashki standard library`
			`; Written by Labashki developer - aeris`

update 1.0.2 2024-02-05 15:13:32 +00:00			`maxsize`
			`args 1 ; Насколько сварить носок`
			`sub`
initial commit 2024-02-05 12:13:44 +00:00
			`@ 1`
update 1.0.2 2024-02-05 15:13:32 +00:00			`jnz 2`
			`quit`
initial commit 2024-02-05 12:13:44 +00:00
			`@ 2`
update 1.0.2 2024-02-05 15:13:32 +00:00			`#expr -`
			`push -1`
			`_unix_random`
			`swap`
			`jmp 1`