12 lines
237 B
Factor
12 lines
237 B
Factor
|
|
||
|
|
USING: arrays sequences ;
|
||
|
|
|
||
|
|
IN: obj.alist
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|
||
|
|
PREDICATE: alist < sequence [ pair? ] all? ;
|
||
|
|
|
||
|
|
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
|
|
|