(define (hash-code str) (define (inner s r) (if (null? s) r (inner (cdr s) (+ (* 31 r) (x->number (car s)))))) (inner (string->list str) 0)) 一応 OpenJDK 7 のコードを拾ってきたけど結果が違ってる... public class S { public static long hashC…