文章

耐人尋味找奇數

英文就是 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 ]

回應

*