`heap'
------

heap()
     :: $B8=:_$N%R!<%W$NBg$-$5$rJV$9(B. ($BC10L(B:$B%P%$%H(B)

RETURN
     $B<+A3?t(B

   * $B8=:_$N%R!<%W$NBg$-$5(B($BC10L(B : $B%P%$%H(B) $B$rJV$9(B. $B%R!<%W$H$O(B, Asir $B$N(B
     $B$5$^$6$^$J?t<0$d(B, $B%f!<%6%W%m%0%i%`$J$I$,$*$+$l$k%a%b%j$NNN0h$G(B,
     $B%,!<%Y%8(B $B%3%l%/%?$K$h$j4IM}$5$l$F$$$k(B. $B%W%m%0%i%`$NF0:nCf$O(B,
     $B%R!<%W$NBg$-$5$O(B $BC1D4Hs8:>/$G$"$j(B,
     $B<B%a%b%j$NNL$r$3$($FBg$-$/$J$C$?>l9g$K$O(B, OS $B$K$h$k(B
     $B%9%o%C%W%(%j%"$X$NFI$_=q$-$,$[$H$s$I$N7W;;;~4V$r@j$a$k$3$H$K$J$k(B.

   * $B<B%a%b%j$,>/$J$$>l9g$K$O(B, $B5/F0;~$N(B `-adj' $B%*%W%7%g%s$K$h$j(B, GC
     $B<gBN$N@_Dj$r9T$C$F$*$/I,MW$,$"$k(B.

     % asir -adj 16
     [0] load("fctrdata")$
     0
     [97] cputime(1)$
     0msec
     [98] heap();
     524288
     0msec
     [99] fctr(Wang[8])$
     3.190sec + gc : 3.420sec
     [100] heap();
     1118208
     0msec
     [101] quit;
     % asir
     [0] load("fctrdata")$
     0
     [97] cputime(1)$
     0msec
     [98] heap();
     827392
     0msec
     [99] fctr(Wang[8])$
     3.000sec + gc : 1.180sec
     [100] heap();
     1626112
     0msec
     [101] quit;

$B;2>H(B
     *Note `$B%3%^%s%I%i%$%s%*%W%7%g%s(B': $B%3%^%s%I%i%$%s%*%W%7%g%s(B.

