戯れにナベアツ問題の新しい応用編をLINQで作ってみた

くだらなくてすいません。

ナベアツのいつものネタの応用編に新しいものが追加されていた。

３の倍数と３の数字がつくときにアホになって、

５の倍数のとき犬っぽくなっていた。

５の倍数のとき犬っぽくなりますが、ついでに末尾が５のときは、ゴフッと吼えるようになっています。

        Dim 読み上げリスト = From 今の数字 In Enumerable.Range(1, 40) _
                Let アホになる = (今の数字 Mod 3) = 0 OrElse 今の数字.ToString().IndexOf("3") >= 0 _
                Let 犬になる = (今の数字 Mod 5) = 0 _
                Select _
                    IIf(アホになる, "アホ", "") & _
                    IIf(犬になる, IIf((今の数字 Mod 10) = 5, "ゴフッ", "ワオーン"), "") & _
                    IIf(アホになる OrElse 犬になる, "", 今の数字.ToString())

        For Each 読み上げる値 In 読み上げリスト
            Console.WriteLine(読み上げる値)
        Next