色んな言語で Windows 7 Ultimate をオススメしてみた

ばあどさんの [雑記]色んな言語で置換処理してみる から。
私もやってみることにした。
めっさ視にくいし、分かりにくいだろうけどこんな感じですた。

とりあえず、お返事(response) が "yes" なら、"(・Σ・)つ(・〜・)つ 「Ultimate」" を返すってことで。
もちろん、動作確認なんてしてないぜ。
ということで、C っぽい C++

const char* const win7_answer(const char* const& response)
{
    if ( !strcmp( response, "yes" ) ) {

        return "(・Σ・)つ(・〜・)つ 「Ultimate」"
    }
    return "";
}

"yes" にしか反応しないけどねw
ばあどさんのとこにも書いてあったけど、Ruby

def win7_answer(response)
  "(・Σ・)つ(・〜・)つ 「Ultimate」" if response =~ /[Yy]es/
end

こういう遊びをすると、どれだけ言語を知ってるか分かるよね。
ものっそい微妙*1だけど、Lisp

(defun win7-answer (response)
  (if (reg-match? response "[Yy]es")
      "(・Σ・)つ(・〜・)つ 「Ultimate」"
      nil))

もう、うろ覚えの Transact-SQL な関数。

create function win7_answer(response as nvarchar(max)) as nvarchar(max)
begin
    declare result as nvarchar(max)
    if response = "yes"
        set result = "(・Σ・)つ(・〜・)つ 「Ultimate」"
    else
        set result = ""
    return result
end

結構知ってると思ってたけど、すんなりでないもんだねぇ。

*1:Lisp での正規表現のやり方分からないのでそれっぽくしてみた