じゃ、早速
でも、絶対こういうのはperlとかの方が得意に決まってる。
(define h (make-hash-table 'eqv?))
(let loop ((c (read-char)))
(unless (eof-object? c)
(when (char-set-contains? #[a-zA-Z] c) (hash-table-update! h c (pa$ + 1) 0))
(loop (read-char))))
(define f #f)
(hash-table-for-each h
(lambda (key val)
(when (> val 1)
(set! f #t)
(print #`",|key|が,|val|回"))))
(print
(if f
"使われているので失格"
"重複した文字は有りません!"))
匿名
#721()
Rating0/0=0.00
じゃ、早速 でも、絶対こういうのはperlとかの方が得意に決まってる。 (define h (make-hash-table 'eqv?)) (let loop ((c (read-char))) (unless (eof-object? c) (when (char-set-contains? #[a-zA-Z] c) (hash-table-update! h c (pa$ + 1) 0)) (loop (read-char)))) (define f #f) (hash-table-for-each h (lambda (key val) (when (> val 1) (set! f #t) (print #`",|key|が,|val|回")))) (print (if f "使われているので失格" "重複した文字は有りません!"))