aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAleksey Veresov <aleksey@veresov.pro>2020-10-18 16:07:32 +0300
committerAleksey Veresov <aleksey@veresov.pro>2020-10-18 16:07:32 +0300
commitdd175a76d76a90a828d6971fb0f099c2ad52bc15 (patch)
tree40eddd59770925a6b963194c4340f2110f489ed8
parentc05dd655ba823bd5f83c7b30f1834008e5e7a0b5 (diff)
downloadcryptrobber-dd175a76d76a90a828d6971fb0f099c2ad52bc15.tar
cryptrobber-dd175a76d76a90a828d6971fb0f099c2ad52bc15.tar.xz
cryptrobber-dd175a76d76a90a828d6971fb0f099c2ad52bc15.zip
Adjust of nicedist.
-rw-r--r--main.sts6
1 files changed, 2 insertions, 4 deletions
diff --git a/main.sts b/main.sts
index 64f5cd1..5e56790 100644
--- a/main.sts
+++ b/main.sts
@@ -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