abc 1 bc 2 c 3 xxx 4 あい 5 あいう 6 いう 7 いうえ 8 うか 9
1 abcdbdb 0 bcxxx 1 あいうえお 0 そういうかな
% ./fepp.pl fepp-dic.txt < fepp-test.txt 1:1 2:1 3:1 2:1 3:1 4:1 5:1 6:1 7:1 8:1 7:1 9:1 % ./fepp.pl -a fepp-dic.txt < fepp-test.txt 1 1:1 2:1 3:1 0 2:1 3:1 4:1 1 5:1 6:1 7:1 8:1 0 7:1 9:1 % ./fepp.pl -a -d 3 fepp-dic.txt < fepp-test.txt [DIC] len=1 a:0, b:0, c:3, x:0, あ:0, い:0, う:0 [DIC] len=2 ab:0, bc:2, xx:0, あい:5, いう:7, うか:9 [DIC] len=3 abc:1, xxx:4, あいう:6, いうえ:8 [INPUT] 1 abcdbdb [MATCH] abc (1) [MATCH] bc (2) [MATCH] c (3) 1 1:1 2:1 3:1 [INPUT] 0 bcxxx [MATCH] bc (2) [MATCH] c (3) [MATCH] xxx (4) 0 2:1 3:1 4:1 [INPUT] 1 あいうえお [MATCH] あい (5) [MATCH] あいう (6) [MATCH] いう (7) [MATCH] いうえ (8) 1 5:1 6:1 7:1 8:1 [INPUT] 0 そういうかな [MATCH] いう (7) [MATCH] うか (9) 0 7:1 9:1
#!/usr/bin/perl use strict; use warnings; use utf8; use open ':utf8'; binmode STDOUT, ":utf8"; binmode STDIN, ":utf8"; use Getopt::Long; my $answer_mode = 0; # input with answer? my $debug = 0; GetOptions ( "answer" => \$answer_mode, 'debug=s' => \$debug, ); my $dat_fn = shift; my @ndic; open(my $fh, "<:utf8", $dat_fn) or die; while (<$fh>) { chomp; next if not /^(.+?)\t(.+)$/; my $id = $2; my @c = split(//, $1); $ndic[@c]{$1} = $id; for (my $i = 0; $i < $#c; $i++) { $ndic[$i+1]{join("",@c[0..$i])} ||= 0; } } close($fh); if ($debug =~ /(1|3)/) { for (my $i = 1; $i < @ndic; $i++) { print "[DIC] len=$i ".join(", ", map {"$_:$ndic[$i]{$_}"} sort keys %{$ndic[$i]})."\n"; } } while (<>) { print "[INPUT] $_" if $debug =~ /(2|3)/; chomp; my $ans = ($_ =~ s/^((.+?)\t)//) ? $2 : "" if $answer_mode; my @c = split(//, $_); my %m; for (my $i = 0; $i < @c; $i++) { for (my $j = $i; $j < @c; $j++) { my $s = join("",@c[$i..$j]); last if not defined $ndic[$j-$i+1]{$s}; next if $ndic[$j-$i+1]{$s} == 0; print "[MATCH] $s ($ndic[$j-$i+1]{$s})\n" if $debug =~ /(2|3)/; $m{$ndic[$j-$i+1]{$s}}++; } } print "$ans " if $answer_mode; print join(" ", map {"$_:$m{$_}"} sort {$a <=> $b} keys %m)."\n"; # print join(" ", map {"$_:1"} sort {$a <=> $b} keys %m)."\n"; }
年収は「住むところ」で決まる。なかなか売れそうな邦題を付けた書籍です。もともとのタイトルはTHE NEW GEOGRAPHY OF JOBS。この本の第三章「給料は学歴より住所で決まる」をもとに付けた名前でしょう。すごくおもしろそうな本。
感覚的に都市競争ってそうなっているよね、ということを論理的にデータも含めて論証した今話題の本です。
「イノベーション都市」の高卒者は、「旧来型製造業都市」の大卒者より稼いでいる!?新しい仕事はどこで生まれているか?「ものづくり」大国にとっての不都合な真実。Kindle版もある!
なぜなら、Kindleは最終ページをめくったら☆を付けたり、感想をSNSに流す機能をシステム上で実装してあるにも関わらず、末尾に余計な内容ページがあると既読率が99%のまま閉じられる恐れがあるからです。つか、「読者からのレスポンス」のポップアップ(?)をオフにする機能が欲しいです。
よく、主人が育児を結構手伝ってくれるので、その例を話したりすると、育児もやもや話。
「それはすごいな〜〜俺にはできんわ〜〜」
みたいな答えがよく返ってきます。
いつも、それを聞いて、もやもやするんです。
「できんわ〜〜〜」じゃなくて、「やろうよ!」と。
「できんわ〜〜〜」じゃなくて、「やりたくないわ〜〜〜」じゃないの?と。
鍋や包丁など台所用品による事故が相次いでいるとして、NITE=製品評価技術基盤機構が注意を呼びかけています。
【100均グッズ&アイデア】全部集めました!
「収納」「料理」「掃除」100円で暮らしが変わる!
◆たった100円だけどお宝が眠ってるんです!
◆100円雑貨の良いモノだけ! 「超便利グッズ&アイデア」/収納編/掃除&洗濯編/フード編/キッチン編
◆[緊急レポ! ]北欧タイガー&ASOKO 覆面調査! /ひと工夫でオシャレに変身! 自慢リメイク/PC眼鏡は100円でOK?科学のチカラで100均を大検証! /100均土鍋 楽うまレシピ/買ってがっかりワーストバイ大発表
ほか