2 USING: kernel sequences sorting math math.order macros bake bake.fry ;
6 : tri-chain ( obj p q r -- x y z )
7 >r >r call dup r> call dup r> call ; inline
9 MACRO: 1if ( test then else -- ) '[ dup @ , , if ] ;
11 ! : 1if ( test then else -- ) >r >r >r dup r> call r> r> if ; inline ;
13 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15 : sort-largest-first ( seq -- seq ) [ [ length ] compare ] sort reverse ;
17 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
19 : longer? ( seq seq -- ? ) [ length ] bi@ > ;
21 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
23 USING: io.sockets accessors ;
25 TUPLE: packet data addr socket ;
27 : receive-packet ( socket -- packet ) [ receive ] keep packet boa ;
29 : respond ( packet -- ) [ data>> ] [ addr>> ] [ socket>> ] tri send ;
31 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
33 : forever ( quot -- ) [ call ] [ forever ] bi ; inline recursive