Paste: example
| Author: | slava |
|---|
| Mode: | mail |
|---|
| Date: | Tue, 25 May 2010 07:01:17 |
|---|
Plain Text |
TUPLE: v+ { x read-only } { y read-only } ;
C: <v+> v+
M: v+ length x>> length ; inline
M: v+ nth-unsafe [ x>> ] [ y>> ] bi [ nth-unsafe ] bi-curry@ bi + ; inline
INSTANCE: v+ sequence
TUPLE: v*n { x read-only } { y read-only } ;
C: <v*n> v*n
M: v*n length x>> length ; inline
M: v*n nth-unsafe [ x>> nth-unsafe ] [ y>> ] bi * ; inline
INSTANCE: v*n sequence
[ { float-array float-array } declare <v+> 5.0 <v*n> float-array{ } clone-like ] optimized.
New Annotation