[Tokyo.pm] 勉強会のネタ

[maeda ＠ src.ricoh.co.jp]

$BA0ED$G$9!#(B

$B2,It$5$s(B> $B!V$J$s$G ＠ 55,I=8=$GAG0x?tJ,2r$,$G$-$k$N$+!W$C$F(B
$BA0ED(B> $B;d$h$/$o$+$j$^$;$s(B(^^;

$B$"!"$J$s$@!"(BPerl Cookbook$B$K$"$C$?$N$M!#$"$i4JC1$8$c$s!#$h$&$9$k(B
$B$K!"!V(B2$B$G3d$C$F3d$j ＠ Z$l$k$+!"(B3$B$G$O!"(B4$B$G$O!D!D!W$H;n$7$F$$$k$@$1(B
$B$G$9!#(B

Perl Cookbook p.196: Example 6-11. prime_pattern

#!/usr/bin/perl
# prime_pattern -- find prime factors of argument using pattern matching
for ($N = ('o' x shift); $N =~ /^(oo+?)\1+$/; $N =~ s/$1/o/g) {
    print length($1), " ";
}
print length($N), "\n";

$B%]%$%s%H(B
  * $B ＠ 5$N ＠ 0?t$r(B'o'$B$N?t$GI=8=(B
  * $N =~ /^(oo+?)\1+$/
	2, 3, 4, 5, $B!D!D(B $B$G=g$K3d$j ＠ Z$l$k$+%F%9%H(B
	non-greedy$B$J(B+?$B$N$*$+$2$G>.$5$$J}$+$i%F%9%H$G$-$k(B
  * $N =~ s/$1/o/g
	$B3d$j;;$r<B9T(B

-------------------------------  Vulture       LRM20   .$B""(B||$B""(B.   LRM20
 $BA0ED(B $B70(B maeda ＠ src.ricoh.co.jp   75t 175km/h     Md+  o'$B""(B||$B""(B`o  Md+
 ($B3t(B)$B%j%3!<(B $B%=%U%H%&%'%"8&5f=j(B   HeatSink 18  LG Sm+   .=X~~X=.   Sm+ LG
-------------------------------  Armor 2195           _|_    _|_