🚀 go-pugleaf

  $@$$$7$P$7$H?=$7$^$9!#(J

In article <Y-TAKATA.92Apr23040317@may.ics.osaka-u.ac.jp> y-takata@ics.osaka-u.ac.jp (Takata Yoshiaki) writes:
                        
 >	  $ARRAY[()]
 >$@$"$k(J$@$$$O(J
 >	  @ARRAY[()]
 >
 >$@$NCM!"$D$^$jG[Ns$NE:;z$K6u%j%9%H$rM?$($?;~$NCM$O!"Dj5A$5$l$F$$$k$N$G$7$g(J
 >$@$&$+!)(J
 >camel book $@$r8+$F$b$h$/J,$+$j$^$;$s!#(J
 >
 >perl, version 4.0, patch level 19 $@$G;n$7$F$_$k$H!"(J
 >	  $ARRAY[()] == $ARRAY[$[]
 >	  @ARRAY[()] == ()
 >$@$N$h$&$KF0:n$7$^$9!#(J
 >
 >$@<ALd$O!"$3$NF0:n$O;E(J$@MM$H$7$FDj5A$5$l$F$$$k$+!)!"$G$9!#(J

  $@A0<T$K4X$7$F$O$O$C$-$j$H$7$?$3$H$O$o$+$j$^$;$s!#8e<T$K4X$7$F$O!"(J
	@ARRAY[(list)]
  $@$O!"(J(list) $@$NE:;z$r;}$D(J @ARRAY $@G[Ns$NMWAG$r%j%9%H$H$7$FJV$9$b$N$G$9(J
$@$+$i!"6u%j%9%H(J$@$rM?$($l$P!"6u%j%9%H$,JV$C$F$/$k$N$OEvA3$G$"$k$h$&$K;W$((J
$@$^$9!#(J
  $@;EMM$G$"$k$+$I$&$+$O$A$g$C$H<+?.$,$"(J$@$j$^$;$s$,!#(J

 >@ARRAY = (@ARRAY[$[ .. $p],
 >	    $addition,
 >	    @ARRAY[($p+1) .. $#ARRAY]
 >);

  $@$3$l$J$i$P(J splice $@4X?t$r;H$C$F!"(J

splice(@ARRAY, $p+1, 0, $addition);

  $@$G<B8=$G$-$k$O$:$G$9!#(Jcamel book $@$r$*;}$A$J$i(J p16 $@$KHs>o$K>\$7$/@bL@(J
$@$5$l$F$$$^$9$N$G!"$=$A$i$r;29M$K$5$l$F2<$5$$!#(J

 >LOW > HIGH $@$N$H$-(J
 >	  LOW .. HIGH == ()
 >$@$H$$$&$N$O!"(Jcamel book, p.219; common tasks with perl, PERFORMING AN
 >OPERATION ON A SERIES OF INTEGERS $@$N(J Comments $@$N5-=R$+$iH=CG$7$?$N$G$9(J
 >$@$,!"$3$l$b3N>Z$O;}$F$^$;(J$@$s!#(J

  $@$3$l$b!";EMM$G$"$k$+$I$&$+$O$o$+$j$^$;$s$,!";n$7$F$_$k8B$j$=$N$h$&$K(J
$@F0:n$9$k$h$&$G$9!#(J(perl v4.000 + sjis v1.0)

					$@$$$7$P$7(J $@!y(J $@$G$7$?(J
--
-------------------------------------------------------------------
$@$$$7$P$7(J $@!y(J $@$G$7$?(J  /  $@%"%7%b%U!"CfEg$_$f$-!u$M$39%$-(J  
$@9qN)J!0fBg3X650i3XItImB0Cf3X9;(J$@!uJ!0f8)N)9b;V(J($@$3$7(J)$@9b9;=P?H(J
$@!V7/$N8e$m;Q$OAGE($@!W!V$=$l$C$F$I!<$$$&0UL#$h!)!W(J