katsu #5345(2008/01/16 02:39 GMT) [ Prolog ] Rating6/6=1.00
まあ、かけ算でも出来るわけでして。 ＃なんか揚げ足取りばっかしているように思われ ＃ちゃうだろうなぁ。マイナス評価でもしょうがないか。 $ pl -qs 124.pl ?- uru(1900). No ?- uru(2000). Yes ?- uru(2008). Yes ?- uru(2100). No ?-
1 2 3 4 5 6 7
uru(X):- divideby400(X). uru(X):- divideby4(X), not(divideby100(X)). divideby(X, Y, Z) :- 0 =:= X - integer(X * Y) * Z. divideby4(X) :- divideby(X, 0.25, 4). divideby100(X) :- divideby(X, 0.01, 100). divideby400(X) :- divideby(X, 0.0025, 400).
Rating6/6=1.00-0+
[ reply ]
katsu
#5345()
[
Prolog
]
Rating6/6=1.00
Rating6/6=1.00-0+