ホーム - Project Euler

Problem 22¶

Names Scores¶

Using names.txt (right click and 'Save Link/Target As...'), a 46K text file containing over five-thousand first names, begin by sorting it into alphabetical order.
Then working out the alphabetical value for each name, multiply this value by its alphabetical position in the list to obtain a name score.

For example, when the list is sorted into alphabetical order, COLIN, which is worth $3 + 15 + 12 + 9 + 14 = 53$, is the $938$th name in the list. So, COLIN would obtain a score of $938 \times 53 = 49714$.

What is the total of all the name scores in the file?

名前のスコア¶

5000個以上の名前が書かれている46Kのテキストファイル names.txt を用いる. まずアルファベット順にソートせよ.

のち, 各名前についてアルファベットに値を割り振り, リスト中の出現順の数と掛け合わせることで, 名前のスコアを計算する.

たとえば, リストがアルファベット順にソートされているとすると, COLINはリストの938番目にある. またCOLINは 3 + 15 + 12 + 9 + 14 = 53 という値を持つ. よってCOLINは 938 × 53 = 49714 というスコアを持つ.

ファイル中の全名前のスコアの合計を求めよ.

(import (scheme base)
        (gauche base)
        (scheme file)
        (scheme read)
        (scheme write)
        (srfi 13))

(define (read-name-txt filename)
  (let ([temp-string (call-with-input-file
                       filename
                       (^[in] (if (not in)
                                (errorf "ファイルオープンに失敗しました~%")
                                (call-with-output-string
                                  (^[out] (format out "(~a)" (read-line in))))))
                       :element-type :character)])
    (call-with-input-string
      (regexp-replace-all #/,/ temp-string " ")
      (^s (read s)))))

(define (sort-names lis)
  (map
    (^[num name] (cons num name))
    (iota (length lis) 1)
    (sort lis)))

(define (name-scores lis)
  (map
    (^[cell]
      (let ([num (car cell)] [name (cdr cell)])
        (let ([temp-score (string-fold
                            (^[c index]
                              (+ index
                                 (- (char->integer c)
                                    (char->integer #\A)
                                    -1)))
                            0
                            name)])
          (* num temp-score))))
    lis))

(define answer-22
  (apply + (name-scores
             (sort-names
               (read-name-txt "names.txt")))))

(format #t "22: ~d~%" answer-22)