Satohru Note(http://satohru.blogspot.jp/)では、ITに関する考察や作品(写真、小説、音楽)の掲載などを行っています。 新作小説『エクストリームセンス』連載中。
【案内】小説『エクストリームセンス』について
小説『エクストリームセンス』は、本ブログを含めていくつか掲載していますが、PC、スマフォ、携帯のいずれでも読みやすいのは、「小説家になろう」サイトだと思います。縦書きのPDFをダウンロードすることもできます。
小説『エクストリームセンス』のURLは、 http://ncode.syosetu.com/n7174bj/
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
// Scala - FizzBuzz
for ( i <- 1 to 100 ) {
var Fizz = i % 3
var Buzz = i % 5
var Response = ""
if ((Fizz == 0) && (Buzz != 0)) Response = "Fizz"
if ((Fizz != 0) && (Buzz == 0)) Response = "Buzz"
if ((Fizz == 0) && (Buzz == 0)) Response = "FizzBuzz"
if (Response == "") println(i) else println(Response)
}
'3の倍数と3の付く数でアホになる関数
Private Function SanDeAho(ByVal Value As Integer) As String
Dim Response As String = Value
Dim x3 As Integer = Value Mod 3
If 0 <= Value.ToString.IndexOf("3") Or x3 = 0 Then
Response = Value & "~ん!" 'アホを表現してます
End If
Return Response
End Function
0 件のコメント:
コメントを投稿