耐人尋味找奇數

英文就是 IsOdd()…. 的確好 Odd… 還要有兩個…

Function IsEven(N)
 Dim LastDigit
 LastDigit = int(N) mod 10
 IsEven = (LastDigit = 0) or (LastDigit = 2) or _
 (LastDigit = 4) or (LastDigit = 6) or (LastDigit = 8)
End Function

Function IsOdd(N)
 Dim LastDigit
 LastDigit = int(N) mod 10
 IsOdd = (LastDigit = 1) or (LastDigit = 3) or _
 (LastDigit = 5) or (LastDigit = 7) or (LastDigit = 9)
End Function

一行Program寫成數十行… 錢真好抓…

[via The Daily WTF ]