SEND+MORE=MONEY

Program.cs

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace SendMoreMoney
{
    class Program
    {
        static void Main(string[] args)
        {
            var q = from s in Enumerable.Range(1, 9)
                    from e in Enumerable.Range(1, 9).Where(x => x != s)
                    from n in Enumerable.Range(1, 9).Where(x => x != s && x != e)
                    from d in Enumerable.Range(1, 9).Where(x => x != s && x != e && x != n)
                    from m in Enumerable.Range(1, 9).Where(x => x != s && x != e && x != n && x != d)
                    from o in Enumerable.Range(1, 9).Where(x => x != s && x != e && x != n && x != d && x != m)
                    from r in Enumerable.Range(1, 9).Where(x => x != s && x != e && x != n && x != d && x != m && x != o)
                    let send = s * 1000 + e * 100 + n * 10 + d
                    let more = m * 1000 + o * 100 + r * 10 + e
                    let money = send + more
                    where send + more == money
                    select new { send, more, money };
            var sw = System.Diagnostics.Stopwatch.StartNew();

            var results = q.ToList();
            sw.Stop();
            Console.WriteLine(sw.Elapsed);
            Console.ReadLine();
            foreach (var result in results)
            {
                Console.WriteLine(result);
            }
        }
    }
}

00:00:00.2450753 CPU: Core i7 2600S
ネタ元→ http://www.itpl.co.jp/ocaml-nagoya/?%A5%CD%A5%BF%B5%AD%CF%BF%B8%CB%2FSEND%2BMORE%3DMONEY

http://www.itpl.co.jp/ocaml-nagoya/?%A5%CD%A5%BF%B5%AD%CF%BF%B8%CB%2FSEND%2BMORE%3DMONEY

ネタ元 http://www.itpl.co.jp/ocaml-nagoya/?%A5%CD%A5%BF%B5%AD%CF%BF%B8%CB%2FSEND%2BMORE%3DMONEY