ã«ã¤äºä¹å¤ã§åèªéã®é¢é£ã®å¼·ãã調ã¹ã 2007-09-19-1 [Algorithm][Programming] ã«ã¤ï¼ä¹å¤ã使ã£ã¦åèªéã®é¢é£åº¦ã調ã¹ãæ¹æ³ã ã¤ã¾ããé¢é£èªãæ¢ãã¨ãã«ãÏäºä¹å¤ãé¢é£åº¦ã¨ãã¦ä½¿ãã perl ã«ãããµã³ãã«ã³ã¼ã (chiword.pl)ãæãåå¼·ãã¦ãä½ã£ãã³ã¼ãã #!/usr/bin/perl use strict; use warnings; my %cnt; my $pair_num; while (<>) { chomp; next if /^\s*$/; my @list = sort split(/,/, $_); for (my $i = 0; $i < @list; $i++) { for (my $j = $i + 1; $j < @list; $j++) { next if $list[$i] eq $list[$j]; $c
{{#tags}}- {{label}}
{{/tags}}