diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 02:26:01 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 02:26:01 +0300 |
| commit | 14c904b06043fa6fbbf5194b838f294248d0a360 (patch) | |
| tree | 50cdf9fba7de966b7c96646e723311f7249db4e5 | |
| parent | 82798ff947aab53e548c6f9e3d4d8c8ff98108c3 (diff) | |
| download | cryptrobber-14c904b06043fa6fbbf5194b838f294248d0a360.tar cryptrobber-14c904b06043fa6fbbf5194b838f294248d0a360.tar.xz cryptrobber-14c904b06043fa6fbbf5194b838f294248d0a360.zip | |
We need more precision.
| -rw-r--r-- | main.sts | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -7,7 +7,7 @@ module freq.sts [ sd 0 swap drop ] defword nicedist - 3e9eb852 float_fload + 1 float_iload 2 float_iload float_div exit defword calcdist ; distance from ideal as sqrt sum square diff @@ -43,7 +43,13 @@ defword checktext fi dup dup 'Z' > 0 = swap 'A' < 0 = mul if dup 'Z' swap - word_size mul checktext.fr + dup @ 1 + swap ! checktext.count @ 1 + checktext.count ! - fi drop + fi dup 9 < if drop drop drop + drop drop drop drop drop drop drop drop drop drop drop drop drop + drop drop drop drop drop drop drop drop drop drop drop drop drop + 0 exit fi dup dup 1f > 0 = swap e < 0 = mul if drop drop drop + drop drop drop drop drop drop drop drop drop drop drop drop drop + drop drop drop drop drop drop drop drop drop drop drop drop drop + 0 exit fi drop dup 0 = untilod drop ; ZERO DIVISION SHALL NOT PASS checktext.count 0 = if drop |