共和党・民主党・そしてサル

政治 経済

朝三暮四

非常に猿と戯れるのが好きな男がいた。この男は家族のことも放っておいて、猿を可愛がるものだから、餌の時間になるといつも猿が寄ってくる。ところが、それが原因である日、奥さんに「猿の餌を減らしてくれないと、子供たちの食べる物までなくなってしまう」と窘められてしまう。困った男は何とか猿たちを籠絡しようとし、一斉に呼びかけた。これからは「朝には木の実を四つ、暮（ばん）には三つしかやれない」と告げるも、猿たちは皆不満顔。それならば「朝は三つ、暮は四つならどうだ」と言うと、何と猿は皆、納得してしまったのである。

そこから「朝三暮四」は、人を巧みに言いくるめて騙すこと、また猿の立場から、物事の根本的な違いに気付かない愚かな人を指す言葉となった。

  • 先に増税・後から歳出削減 vs 先に歳出削減・あとから増税。
  • 言うまでも無く、アメリカ有権者達はサルである。

Tom Boonen、TdF出走へ

自転車

AFP: Boonen given Tour de France chance

  • コカインで二回パクられたTom Boonenが、2009 Tour de Franceの出走表に。
  • ベルギーでは、「個人のコカイン使用」は刑事罰に問われないらしい。パーティで使ったり、販売したりすると、アウト。
  • UCI規定では、競技外でのコカイン使用は即時懲罰の対象になっていない。
  • なので、今年のThe Tourには出られちゃう。
  • なんか変なの。

こんなんでました

どうでも良いこと 
Welcome to a public Amazon EC2 image brought to you by RightScale!

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!       Your EC2 Instance has failed installation.             !!!
!!!       Please check /var/log/install for details.             !!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

orz...

システム開発 ネタ

Daily WTF: The IntDivide

  • これはすごい...
  • こういう処理方式を思いつく精神構造に関心。
  • 一緒に仕事をする気には、なれないね。

呼び出し側

NumPages = IntDivide(ds.Tables(0).Rows.Count, 56) + 1

そして問題の、IntDivide

'------------------------------------------------------------------
'-- NAME:                   IntDivide
'-- PURPOSE:                Returns the integer division of one 
'--                         number by another.
'-- IN PARAMETERS:          Numerator, denominator.
'-- OUT PARAMETERS:         Result. 
'------------------------------------------------------------------
'-- REVISION HISTORY:
'-- 
'-- WHEN        WHO         WHAT
'-- 08/29/08    ????        Initial creation.
'------------------------------------------------------------------
Public Function IntDivide(ByVal Num As Integer, ByVal Denom As Integer) As Integer
  Dim Result As Integer = 0

  If Denom <> 0 Then
    Dim SQL As String = "SELECT (" & Num.ToString & "/" & Denom.ToString & ") AS Res"
      Dim ds As New DataSet
      
      If GetDataSet(SQL, ds) Then
        If ds.Tables(0).Rows.Count > 0 Then
          Result = ds.Tables(0).Rows(0).Item(0)
        End If
      End If
    End If

    Return Result
End Function