aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-18 00:37:08 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-18 00:37:08 +0300
commitc54f94c431bbdc54d2a182bb1a05202818fe38fd (patch)
tree19b62cc3aa018be5deec1d7c59b778d377acc48f
parent66c24def5fc23cc5c9f2d8f85ae7bf9e58a92d6c (diff)
downloadcryptrobber-c54f94c431bbdc54d2a182bb1a05202818fe38fd.tar
cryptrobber-c54f94c431bbdc54d2a182bb1a05202818fe38fd.tar.xz
cryptrobber-c54f94c431bbdc54d2a182bb1a05202818fe38fd.zip
Fix.
-rw-r--r--main.sts7
1 files changed, 4 insertions, 3 deletions
diff --git a/main.sts b/main.sts
index 8543626..20429a4 100644
--- a/main.sts
+++ b/main.sts
@@ -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