相性占い

30分プログラム、その248。新しくプログラミング言語を覚えたいときに行うべき10の練習問題 | IDEA*IDEAより相性占い。

ある名前とある名前を入れると相性診断を10段階で出してくれるプログラム。診断結果は適当でもいいけど、同じ組み合わせだったら同じ数値が必ずでないといけないように。

相性の判断方法はこんな感じにしてみた。

• 名前をアスキーコードの配列とみなして、和を計算する
• mod 100を取る
• 2人の名前を合計する
• 合計した値によって、bad/normal/goodの3段階で評価する

使い方

$ wish aisyou.tcl

ソースコード

proc chr {char} {
    format %d [scan $char %c]
}

proc sum {str} {
    set sum 0