網絡暴民 Jacky’s Blog

 Function IsEven(N)
     Dim LastDigit
     LastDigit = int(N) mod 10
     IsEven = (LastDigit = 0) or (LastDigit = 2) or _
     (LastDigit = 4) or (LastDigit = 6) or (LastDigit =   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

• 發表日期： Tuesday, March 22nd, 2005
• 發表時間： 11:36 PM
• 分類：電腦
• 文章 RSS：RSS 2.0
• 留言：開放留言
• Trackback：開放
• Tags: fun, programming

• 相關文章

  • 齊來電影ok！ (0)
  • 高速單車 (3)
  • 高亮連結油猴腳本 (0)
  • 騙錢G-Force (0)
  • 連環貓貓拳！ (0)

“耐人尋味找奇數” - 2 個回應

1. Gea-Suan Lin's BLOG 說:

   奇數

   在「耐人尋味找奇數」裡面提到的方法其實還算好，O(1) :p

   我記得之前有看到類似的文章，也是判斷奇數的，下面是其中一種方法 :p
   int isOdd(int n)
   {
   if (n < 2)
   return (n != 0);
   else
   return (…

   發表於 23-Mar-05 1:02 am | 永久連結

2. marky 說:

   好醒丫…:D

   發表於 24-Mar-05 4:41 am | 永久連結

回覆