diff options
| author | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 16:07:32 +0300 |
|---|---|---|
| committer | Aleksey Veresov <aleksey@veresov.pro> | 2020-10-18 16:07:32 +0300 |
| commit | dd175a76d76a90a828d6971fb0f099c2ad52bc15 (patch) | |
| tree | 40eddd59770925a6b963194c4340f2110f489ed8 /main.sts | |
| parent | c05dd655ba823bd5f83c7b30f1834008e5e7a0b5 (diff) | |
| download | cryptrobber-dd175a76d76a90a828d6971fb0f099c2ad52bc15.tar cryptrobber-dd175a76d76a90a828d6971fb0f099c2ad52bc15.tar.xz cryptrobber-dd175a76d76a90a828d6971fb0f099c2ad52bc15.zip | |
Adjust of nicedist.
Diffstat (limited to 'main.sts')
| -rw-r--r-- | main.sts | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -8,7 +8,7 @@ module bifreq.sts [ sd 0 swap drop ] defword nicedist - 1 float_iload 10 float_iload float_div + 1 float_iload a float_iload float_div exit defword zeros @@ -36,9 +36,7 @@ defword calcdist ; distance from ideal as sqrt sum square diff 0 do dup 2bd = until swap float_fload swap float_fload float_add float_fstore swap 1 + od drop - float_fload float_sqrt - float_fstore dup print_hex newline sys_write float_fload - nicedist float_less + float_fload float_sqrt nicedist float_less exit defword checktext |