1
Help us understand the problem. What are the problem?

More than 3 years have passed since last update.

posted at

updated at

PerlでワンライナーFizzBuzz

はじめに

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でもっと短くかけるとかあったらぜひコメント下さい(懇願)

Why not register and get more from Qiita?
  1. We will deliver articles that match you
    By following users and tags, you can catch up information on technical fields that you are interested in as a whole
  2. you can read useful information later efficiently
    By "stocking" the articles you like, you can search right away
Sign upLogin
1
Help us understand the problem. What are the problem?