2

プロジェクトオイラー問題8の場合、1000桁の数値を解析するように指示されます。これはブルートフォースLispソリューションであり、基本的に5桁ごとに処理され、最初から最後まで乗算され、ループの最後で最大のものが返されます。

コード：

(defun pep8 ()
  (labels ((product-of-5n (n)
         (eval (append '(*)
               (loop for x from n to (+ n 5)
                collect (parse-integer
                1000digits-str :start x :end (+ x 1)))))))
    (let ((largestproduct 0))
      (do ((currentdigit 0 (1+ currentdigit)))
          ((> currentdigit (- (length 1000digits-str) 6)) (return largestproduct))
        (when (> (product-of-5n currentdigit) largestproduct)
          (setf largestproduct (product-of-5n currentdigit)))))))

警告なしにコンパイルされますが、実行すると次のようになります。

no non-whitespace characters in string "73167176531330624919225119674426574742355349194934...".
   [Condition of type SB-INT:SIMPLE-PARSE-ERROR]

product-of-5nローカル関数をグローバル関数として再度記述して、ローカル関数が機能しているかどうかを確認しました。

(defun product-of-5n (n)
  (eval (append '(*)
        (loop for x from n to (+ n 5)
           collect (parse-integer
                1000digits-str :start x :end (+ x 1))))))

これは警告なしにコンパイルされ、実行すると完全に動作しているように見えます。例えば、

CL_USER>（product-of-5n 1）=> 882

最初の5桁は7、3、1、6、7なので、これは正しいようです。

について1000digits-strは、単純にでコンパイルされdefvar、Emacsでコンパイルされたので、文字列に空白文字は含まれてlonglines-show-hard-newlinesいないと思います。これは、SBCLが不満を言っているからです。

4

4 に答える 4

3

EVAL良い考えではありません。

ループの上限が間違っています。

それ以外の場合は、数字の文字列で試してみましたが、機能します。

また、9ではなくオイラー8です。

これは私のバージョンです：

(defun euler8 (string)
  (loop for (a b c d e) on (map 'list #'digit-char-p string)
        while e maximize (* a b c d e)))
于 2012-07-18T19:31:02.097 に答える
3

文字列に空白文字が含まれているとは思いません。SBCLが不満を言っているからです。

エラーメッセージは、空白の存在について不平を言っているのではなく、非空白の不在について不平を言っています。しかし、実際には少し誤解を招く可能性があります。メッセージが言うべきことは、解析される特定のサブストリングに非空白がないということです。これは、文字列の終わりを使い果たしたため、長さがゼロの部分文字列を解析していたためです。

また、product-of-5n完全に正しく定義されていません。(product-of-5n 1)最初の5桁の積を返すのは偶然です。文字列はからインデックス付けされる0ため、 2番目の文字(product-of-5n 1)で始まります。関数はn +0からn +5まで反復します。これは、合計6文字です。したがって、3×1×6×7×1×7を返します。これは、たまたま7×3×1×6×7×1と同じです。(product-of-5n 1)

于 2012-07-18T20:21:06.527 に答える
0

私はしばらく前にこの問題を実行しましたが、問題の説明に欠けていることが1つあります。後件部は、5で割り切れるオフセットだけでなく、刺し傷へのオフセットから開始するように読み取る必要があります。したがって、問題の解決策は次のようになります。

(defun pe-8 ()
  (do ((input  (remove #\Newline
"73167176531330624919225119674426574742355349194934
96983520312774506326239578318016984801869478851843
85861560789112949495459501737958331952853208805511
12540698747158523863050715693290963295227443043557
66896648950445244523161731856403098711121722383113
62229893423380308135336276614282806444486645238749
30358907296290491560440772390713810515859307960866
70172427121883998797908792274921901699720888093776
65727333001053367881220235421809751254540594752243
52584907711670556013604839586446706324415722155397
53697817977846174064955149290862569321978468622482
83972241375657056057490261407972968652414535100474
82166370484403199890008895243450658541227588666881
16427171479924442928230863465674813919123162824586
17866458359124566529476545682848912883142607690042
24219022671055626321111109370544217506941658960408
07198403850962455444362981230987879927244284909188
84580156166097919133875499200524063689912560717606
05886116467109405077541002256983155200055935729725
71636269561882670428252483600823257530420752963450"))
       (tries 0 (1+ tries))
       (result 0))
      ((= tries 5) result)
    (setq result
          (max result
               (do ((max 0)
                    (i 0 (+ 5 i)))
                   ((= i (length input)) max)
                 (setq max
                       (do ((j i (1+ j))
                            (current 1)
                            int-char)
                           ((= j (+ 5 i)) (max current max))
                         (setq int-char (- (char-code (aref input j)) 48))
                         (case int-char
                           (0 (return max))
                           (1)
                           (t (setq current (* current int-char))))))))
          input (concatenate 'string (subseq input 1) (subseq input 0 1)))))

それは少し醜いですが、それはアイデアを示しています。

編集申し訳ありませんが、私はあなたの機能の2つを混乱させました。だからそのようなものは間違っていた。

于 2012-07-20T09:58:27.850 に答える
0

Common lispがわからないので、elispに合うようにコードを少し変更しました。バグを見つける限り、言われていること（(product-of-5n 1)126を返す必要があります）に加えて、私が持っている唯一のコメントは、で(pep8)、-6ではなく長さ-4を実行することです（そうでない場合は最後の2文字を失います）。解析エラーを修正する方法がわからないことをお詫びします（string-to-number代わりに使用しました）が、役立つと思われる場合のコードは次のとおりです。

(defun product-of-5n (n)       ;take 5 characters from a string "1000digits-str" starting with nth one and output their product
  (let (ox)                    ;define ox as a local variable
    (eval                      ;evaluate
     (append '(*)              ;concatenate the multiplication sign to the list of 5 numbers (that are added next)
         (dotimes (x 5 ox)     ;x goes from 0 to 4 (n is added later to make it go n to n+4), the output is stored in ox
           (setq ox (cons      ;create a list of 5 numbers and store it in ox 
             (string-to-number 
              (substring 1000digits-str (+ x n) (+ (+ x n) 1) ) ;get the (n+x)th character  
              )                ;end convert char to number
             ox )              ;end cons
             )                 ;end setq
           )                   ;end dotimes, returns ox outside of do, ox has the list of 5 numbers in it
         )                     ;end append
     )                         ;end eval
    )                          ;end let
  )

(defun pep8 () ;print the highest 
  (let ((currentdigit 0) (largestproduct 0))                    ;initialize local variables
    (while  (< currentdigit  (- (length 1000digits-str) 4)    ) ;while currentdigit (cd from now on) is less than l(str)-4
      ;(print (cons "current digit" currentdigit))              ;uncomment to print cd
      (when (> (product-of-5n currentdigit) largestproduct)     ;when current product is greater than previous largestproduct (lp)
      (setq largestproduct (product-of-5n currentdigit))        ;save lp
      (print (cons "next good cd" currentdigit))                ;print cd
      (print (cons "with corresponding lp" largestproduct))     ;print lp
      )                                                         ;end when
    (setq currentdigit (1+ currentdigit))                       ;increment cd
    )                                                           ;end while
    (print (cons "best ever lp" largestproduct) )               ;print best ever lp
    )                                                           ;end let
  )

(setq 1000digits-str "73167176531330624919")
(product-of-5n 1)
(pep9)

これが返されます（最初の20文字で実行された場合）

"73167176531330624919"
126 

("next good cd" . 0)
("with corresponding lp" . 882)

("next good cd" . 3)
("with corresponding lp" . 1764)

("best ever lp" . 1764)
于 2012-07-18T23:29:35.687 に答える