07/06/17 15:12:01
ホントにperlのためにつくられた問題というか宿題という感じがするね
71:デフォルトの名無しさん
07/06/17 15:14:04
perl 脳。
72:デフォルトの名無しさん
07/06/17 15:49:56
しかし perl のソースは汚いな
73:デフォルトの名無しさん
07/06/17 16:40:45
毎回Perlは汚いと煽ってる馬鹿に言いたいんだが…
言語仕様によって汚くなるというのは無いんだよ、これは。
それを言う偉い先生方の見解によれば、要は書き手によって変わると。
Perlは柔軟性が高い余り、完全に理解出来てない所謂無知が多い。
そしてそういう奴等が世の中に糞コードを放つから、総合的に汚く見えると。
つまり、君は騙されているんだよ。
74:デフォルトの名無しさん
07/06/17 17:14:35
そんな汚いかな？
$unkoは汚いけど
75:デフォルトの名無しさん
07/06/17 17:39:32
$anal
76:デフォルトの名無しさん
07/06/17 17:53:29
>>58 がCPANにこのモジュールを公開すれば、
ソースは use、new、print の３行だけの美しいコードになるべ。そして3行を提出。
77:デフォルトの名無しさん
07/06/17 18:16:02
それはまるで、C か何かで書けと言われた課題に対し、use POSIX; とかして提出したひとみたいですね。
78:デフォルトの名無しさん
07/06/17 18:45:22
>>72
俺のコードはきれいだぞ
79:デフォルトの名無しさん
07/06/17 18:49:37
俺のケツも綺麗だよ
80:デフォルトの名無しさん
07/06/17 21:05:43
僕の肛門もリファクタリングされそうです＞＜
81:デフォルトの名無しさん
07/06/17 21:13:57
俺にきれいなコードを書くのは無理とわかった。
#!/usr/bin/perl
use strict;
BEGIN { require warnings && import warnings }
local $/ or grep ++$un'ko{$_},map m/\b\w+\b/g,uc<STDIN>;
print lc and printf join $un'ko{$_},unpack 'a'x2," \n" for reverse sort { $un'ko{$a} <=> $un'ko{$b} } keys %un'ko;
__END__
82:デフォルトの名無しさん
07/06/17 23:31:49
こうしてPerlを知らない優秀なPerlプログラマがまたひとり巣立って行く
83:デフォルトの名無しさん
07/06/17 23:44:17
>>81
わざと汚く書いてるよねｗ
84:54
07/06/18 01:41:29
Perlでは難しいんでしょうか
85:デフォルトの名無しさん
07/06/18 02:14:06
>>55
86:デフォルトの名無しさん
07/06/18 12:21:14
もうちょっとシンプルにならんかなぁ
#!/usr/bin/perl
use strict;use warnings;
my(%chinko,%manko);$/=undef;
print "$_:$chinko{$_}\n" for sort {$chinko{$b}<=>$chinko{$a} || $a cmp $b} grep !$manko{$_}++ , map {$chinko{$_}++;$_} split /\s+/,lc <STDIN>;
87:デフォルトの名無しさん
07/06/18 13:32:46
そういう変なのをもっともらしく貼り付けるから perl はダメとかいわれるんじゃないの？
88:デフォルトの名無しさん
07/06/18 13:47:23
これはこれで綺麗に見えるのだが、
その感性を会得出来ないのは、
まだ君が未熟である証拠であろう。
89:デフォルトの名無しさん
07/06/18 13:55:00
>>86
%chinkoと%mankoわけるのは無駄だろ?
90:デフォルトの名無しさん
07/06/18 14:51:34
> これはこれで綺麗に見えるのだが、
廃人になる前にドラッグやめたほうがいいよ。