diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 00:37:08 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 00:37:08 +0300 |
| commit | c54f94c431bbdc54d2a182bb1a05202818fe38fd (patch) | |
| tree | 19b62cc3aa018be5deec1d7c59b778d377acc48f /main.sts | |
| parent | 66c24def5fc23cc5c9f2d8f85ae7bf9e58a92d6c (diff) | |
| download | cryptrobber-c54f94c431bbdc54d2a182bb1a05202818fe38fd.tar cryptrobber-c54f94c431bbdc54d2a182bb1a05202818fe38fd.tar.xz cryptrobber-c54f94c431bbdc54d2a182bb1a05202818fe38fd.zip | |
Fix.
Diffstat (limited to 'main.sts')
| -rw-r--r-- | main.sts | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -38,11 +38,12 @@ defword checktext checktext.length do 1 - dup word_size mul checktext.text + @ dup dup 'z' > 0 = swap 'a' < 0 = mul if - dup 'z' swap - word_size mul checktext.fr + dup @ + 1 swap ! + dup 'z' swap - word_size mul checktext.fr + dup @ 1 + swap ! + checktext.count 1 + as checktext.count fi dup dup 'Z' > 0 = swap 'A' < 0 = mul if - dup 'Z' swap - word_size mul checktext.fr + dup @ + 1 swap ! + dup 'Z' swap - word_size mul checktext.fr + dup @ 1 + swap ! + checktext.count 1 + as checktext.count fi drop - checktext.count 1 + as checktext.count dup 0 = untilod drop ; ZERO DIVISION SHALL NOT PASS checktext.count 0 = if |