2
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?

More than 5 years have passed since last update.

PerlでワンライナーFizzBuzz

Last updated at Posted at 2019-03-14

#はじめに
Perlが一番好きな言語なのに、Perlの記事書いたこと無いじゃんということで2年くらいだらだら考えてたFizzBuzzを残しておきます。
三項演算子の戻り値や、printまわりをもう少し頑張ればもう2文字位頑張れそうですね...
#改行なし

print(($_%3?"":Fizz).($_%5?"":Buzz)or$_)for 1..100

改行なしなので数字やFizzBuzz同士がくっついちゃっています。
なんかズルい気もする。
後置forは最高ですね。
#改行あり

print((($_%3?"":Fizz).($_%5?"":Buzz)or$_)."\n")for 1..100

sayとか使えたらもっと短くなると思うんですけど-Eオプションがいる(もしくは、useでバージョン指定する)のでちょっとずるいし、エラーが出てprintみたいにはいきませんでした。やっぱり、改行が鬼門ですね...
#最後に
やっぱりPerlは最高ですね。FizzBuzz楽しい。
こうしたほうが良いとか、Perlでもっと短くかけるとかあったらぜひコメント下さい(懇願)

2
1
1

Register as a new user and use Qiita more conveniently

  1. You get articles that match your needs
  2. You can efficiently read back useful information
  3. You can use dark theme
What you can do with signing up
2
1

Delete article

Deleted articles cannot be recovered.

Draft of this article would be also deleted.

Are you sure you want to delete this article?