2013-03-16 16:53:58 -04:00
|
|
|
! Copyright (C) 2013 John Benediktsson
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license
|
|
|
|
|
|
2013-03-16 16:58:29 -04:00
|
|
|
USING: arrays kernel math sequences tools.test ;
|
2013-03-16 16:53:58 -04:00
|
|
|
|
|
|
|
|
IN: math.hashcodes
|
|
|
|
|
|
|
|
|
|
{ t } [
|
2013-03-16 16:58:29 -04:00
|
|
|
12 dup >bignum 12.0 12 0 complex boa 4array
|
2013-03-16 16:53:58 -04:00
|
|
|
[ number-hashcode 12 = ] all?
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
{ t } [
|
2013-03-16 16:58:29 -04:00
|
|
|
1.5 3/2 1.5 0 complex boa 3/2 0 complex boa 4array
|
2013-03-19 20:22:25 -04:00
|
|
|
[
|
|
|
|
|
number-hashcode
|
|
|
|
|
cell-bits 64 = 3458764513820540928 3221225472 ?
|
|
|
|
|
=
|
|
|
|
|
] all?
|
2013-03-16 16:53:58 -04:00
|
|
|
] unit-test
|
