無精・短気・傲慢

perlの事 いろいろ

2015-07-01から1ヶ月間の記事一覧

飛び出せPerl6

飛び出せperl6 アスキーでステレオグラム。ワンライナーで『パール6』を浮き出させる。いまいち飛び出ないか…。もっとガンガレ… $ perl6 -e 'sub MAIN($x,$y){ for 1..10 -> $i { for 1..7 -> $j { print ($i==9 and $j==6)??"$y "!!"$x ";}; print "\n";}}'…

多項式の因数分解(factorization)

高校の数学の本を元にアルゴリズム(algorithm)の備忘録として 使い方 $ perl factor.pl '8x^3+12x^2-2x-3' (2x-1)(2x+1)(2x+3) $ perl factor.pl ' x^4+x^2+1 ' (x^2+x+1)(x^2-x+1) $ 【計算】 [factor.pl] $str = shift || ' 8x^3+12x^2-2x-3 '; #<----- $s…

perl6 memo

array etc.. 編集 $ perl6 -e 'say ("a".."z")[5]' f $ perl6 -e 'say first-index { $_ > 5 }, (1..10)' 5 $ perl6 -e 'say [+] 1..10' 55 $ perl6 -e 'say join ",", 1..10 ' 1,2,3,4,5,6,7,8,9,10 $ perl6 -e 'for 1..10 -> $x {say "[$x]";}' [1] [2] [3…