Fix bloopers
parent
c564481cc5
commit
d1f37ab5ec
|
@ -126,11 +126,11 @@ M: utf16 <encoder> ( stream utf16 -- encoder )
|
||||||
|
|
||||||
! Native-order UTF-16
|
! Native-order UTF-16
|
||||||
|
|
||||||
: native-utf16 ( -- descriptor )
|
: utf16n ( -- descriptor )
|
||||||
little-endian? utf16le utf16be ? ;
|
little-endian? utf16le utf16be ? ; foldable
|
||||||
|
|
||||||
M: utf16n <decoder> drop native-utf16 <decoder> ;
|
M: utf16n <decoder> drop utf16n <decoder> ;
|
||||||
|
|
||||||
M: utf16n <encoder> drop native-utf16 <encoder> ;
|
M: utf16n <encoder> drop utf16n <encoder> ;
|
||||||
|
|
||||||
PRIVATE>
|
PRIVATE>
|
|
@ -19,7 +19,7 @@ IN: benchmark.spectral-norm
|
||||||
pick 0.0 [
|
pick 0.0 [
|
||||||
swap >r >r 2dup r> (eval-A-times-u) r> +
|
swap >r >r 2dup r> (eval-A-times-u) r> +
|
||||||
] reduce nip
|
] reduce nip
|
||||||
] F{ } map-as { float-array } declare 2nip ; inline
|
] F{ } map-as 2nip ; inline
|
||||||
|
|
||||||
: (eval-At-times-u) ( u i j -- x )
|
: (eval-At-times-u) ( u i j -- x )
|
||||||
tuck swap eval-A >r swap nth-unsafe r> * ; inline
|
tuck swap eval-A >r swap nth-unsafe r> * ; inline
|
||||||
|
@ -29,7 +29,7 @@ IN: benchmark.spectral-norm
|
||||||
pick 0.0 [
|
pick 0.0 [
|
||||||
swap >r >r 2dup r> (eval-At-times-u) r> +
|
swap >r >r 2dup r> (eval-At-times-u) r> +
|
||||||
] reduce nip
|
] reduce nip
|
||||||
] F{ } map-as { float-array } declare 2nip ; inline
|
] F{ } map-as 2nip ; inline
|
||||||
|
|
||||||
: eval-AtA-times-u ( n u -- seq )
|
: eval-AtA-times-u ( n u -- seq )
|
||||||
dupd eval-A-times-u eval-At-times-u ; inline
|
dupd eval-A-times-u eval-At-times-u ; inline
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: arrays kernel kernel.private math sequences
|
USING: arrays kernel kernel.private math sequences
|
||||||
sequences.private growable bit-arrays prettyprint.backend
|
sequences.private growable bit-arrays prettyprint.backend
|
||||||
parser ;
|
parser accessors ;
|
||||||
IN: bit-vectors
|
IN: bit-vectors
|
||||||
|
|
||||||
TUPLE: bit-vector underlying fill ;
|
TUPLE: bit-vector underlying fill ;
|
||||||
|
@ -44,7 +44,7 @@ M: bit-array new-resizable drop <bit-vector> ;
|
||||||
|
|
||||||
INSTANCE: bit-vector growable
|
INSTANCE: bit-vector growable
|
||||||
|
|
||||||
: ?V \ } [ >bit-vector ] parse-literal ; parsing
|
: ?V{ \ } [ >bit-vector ] parse-literal ; parsing
|
||||||
|
|
||||||
M: bit-vector >pprint-sequence ;
|
M: bit-vector >pprint-sequence ;
|
||||||
|
|
||||||
|
|
|
@ -2,7 +2,7 @@
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: arrays kernel kernel.private math sequences
|
USING: arrays kernel kernel.private math sequences
|
||||||
sequences.private growable float-arrays prettyprint.backend
|
sequences.private growable float-arrays prettyprint.backend
|
||||||
parser ;
|
parser accessors ;
|
||||||
IN: float-vectors
|
IN: float-vectors
|
||||||
|
|
||||||
TUPLE: float-vector underlying fill ;
|
TUPLE: float-vector underlying fill ;
|
||||||
|
|
Loading…
Reference in New Issue