プログラミング言語/Perl - プログラミングスレまとめ in VIPにある解答例のコードで、余りにも酷いのがあったから書いた。
具体的には、
ちょっと追記。
具体的には、
- "配列弄り"の問題なのに配列を弄ってない。(しかも、引数に0があるとそこでループ抜けるという荒い仕様)
- "Caesar暗号解読"のコードがやたら冗長で読む気しない。
- FizzBuzzすら解答されてなかった。
ちょっと追記。
上記の、僕が冗長だ！と切り捨てた解に、
> #答えが1通りであることがわかってる場合は、8行目のpushのところで、printして、exit しちゃえばOK。
って書いてあったけど、別に配列に入れる必要なんてなくて、
を、
でいいんじゃないの？
あと、プログラミング言語/VIP言語 - プログラミングスレまとめ in VIPのコンパイラ(というより変換するだけ)も書いといた。
> #答えが1通りであることがわかってる場合は、8行目のpushのところで、printして、exit しちゃえばOK。
って書いてあったけど、別に配列に入れる必要なんてなくて、
#!/usr/local/bin/perl
use strict;
$\ = $/;
$_ = "qdq-gi.q-a ziatmxxitmdqibtqi-ustbi ri.qmoqrcxi.qbubu zir -ibtqi-qp-qaai ripmymsqkir -ibtqi-qy dmxi ri.cnxuoi rruoumxakir -ibtqiqzmobyqzbkii-q.qmxi -imyqzpyqzbi rixmeaki -puzmzoqai -i-qscxmbu zaimzpir -i btq-iymbbq-a;iz -iatmxximzgi.q-a zinqiuzimzgiemgipuao-uyuzmbqpimsmuzabir -ia. za -uzsiacotiimi.qbubu zj";
y/abcdefghijklmnopqrstuvwxyz .,\-/bcdefghijklmnopqrstuvwxyz .,\-a/while(!/person/);
print;
を、
#!/usr/local/bin/perl
use strict;
$\ = $/;
my $c = "qdq-gi.q-a ziatmxxitmdqibtqi-ustbi ri.qmoqrcxi.qbubu zir -ibtqi-qp-qaai ripmymsqkir -ibtqi-qy dmxi ri.cnxuoi rruoumxakir -ibtqiqzmobyqzbkii-q.qmxi -imyqzpyqzbi rixmeaki -puzmzoqai -i-qscxmbu zaimzpir -i btq-iymbbq-a;iz -iatmxximzgi.q-a zinqiuzimzgiemgipuao-uyuzmbqpimsmuzabir -ia. za -uzsiacotiimi.qbubu zj";
($_ = $c) && y/abcdefghijklmnopqrstuvwxyz .,\-/bcdefghijklmnopqrstuvwxyz .,\-a/ && ($c = $_) && /person/ && print for(0..29);
でいいんじゃないの？
あと、プログラミング言語/VIP言語 - プログラミングスレまとめ in VIPのコンパイラ(というより変換するだけ)も書いといた。
| ホーム |