2人の相性度は? (EPOCH@まつやま - 本選3)

SML 30分プログラム

30分プログラム、その660。http://gauc.no-ip.org/awk-users-jp/blis.cgi/DoukakuAWK_219より。
SMLはまだまだ不慣れなので、これくらいがちょうどいいです。

使い方

- friend "Alice" "Bob";
val it = 5 : int

ソースコード

fun toNum c = Char.ord (Char.toLower c) - Char.ord #"a" + 1;

fun score s = foldl (op +) 0 (map toNum (String.explode s));

fun friend x y = (score x + score y) mod 11;;

参考