<?xml version="1.0" encoding="utf-8" standalone="yes"?>
<oembed>
  <author_name>keita_yamaguchi</author_name>
  <author_url>https://blog.hatena.ne.jp/keita_yamaguchi/</author_url>
  <blog_title>¬¬日常日記</blog_title>
  <blog_url>https://keita-yamaguchi.hatenadiary.org/</blog_url>
  <categories>
    <anon>OCaml</anon>
  </categories>
  <description>http://www.itpl.co.jp/ocaml-nagoya/index.php?%A5%CD%A5%BF%B5%AD%CF%BF%B8%CB%2FSEND%2BMORE%3DMONEY「もっと金送れ」かっこいい！調べてみたら、こういうのを覆面算っていうのですね、ちっとも知りませんでした。取り敢えず解いてみました。 type pairs = (char * int) list let toint (li : int list) = List.fold_left (fun a b -&gt; (a * 10 + b)) 0 li;; let score (d : pairs) = let f …</description>
  <height>190</height>
  <html>&lt;iframe src=&quot;https://hatenablog-parts.com/embed?url=https%3A%2F%2Fkeita-yamaguchi.hatenadiary.org%2Fentry%2F20080608%2F1212930981&quot; title=&quot; 覆面算 SEND+MORE=MONEY を解いてみました - ¬¬日常日記&quot; class=&quot;embed-card embed-blogcard&quot; scrolling=&quot;no&quot; frameborder=&quot;0&quot; style=&quot;display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;&quot;&gt;&lt;/iframe&gt;</html>
  <image_url></image_url>
  <provider_name>Hatena Blog</provider_name>
  <provider_url>https://hatena.blog</provider_url>
  <published>2008-06-08 22:16:21</published>
  <title> 覆面算 SEND+MORE=MONEY を解いてみました</title>
  <type>rich</type>
  <url>https://keita-yamaguchi.hatenadiary.org/entry/20080608/1212930981</url>
  <version>1.0</version>
  <width>100%</width>
</oembed>
