39 lines
932 B
Factor
39 lines
932 B
Factor
! Copyright (C) 2005, 2006 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
IN: inference
|
|
USING: hashtables kernel math namespaces sequences words ;
|
|
|
|
SYMBOL: recursive-state
|
|
|
|
: <computed> \ <computed> counter ;
|
|
|
|
TUPLE: value uid literal recursion ;
|
|
|
|
C: value ( obj -- value )
|
|
<computed> over set-value-uid
|
|
recursive-state get over set-value-recursion
|
|
[ set-value-literal ] keep ;
|
|
|
|
M: value hashcode value-uid ;
|
|
|
|
M: value equal? eq? ;
|
|
|
|
M: integer value-uid ;
|
|
|
|
M: integer value-recursion drop f ;
|
|
|
|
: split-shuffle ( stack shuffle -- stack1 stack2 )
|
|
effect-in length swap cut* ;
|
|
|
|
: load-shuffle ( stack shuffle -- )
|
|
effect-in [ set ] 2each ;
|
|
|
|
: shuffled-values ( shuffle -- values )
|
|
effect-out [ get ] map ;
|
|
|
|
: shuffle* ( stack shuffle -- stack )
|
|
[ [ load-shuffle ] keep shuffled-values ] with-scope ;
|
|
|
|
: shuffle ( stack shuffle -- stack )
|
|
[ split-shuffle ] keep shuffle* append ;
|