カプレカ数で遊ぶ - Qiita

カプレカ数という概念があることを某チャットで知りました。 カプレカ数（Wikipedia） https://ja.wikipedia.org/wiki/%E3%82%AB%E3%83%97%E3%83%AC%E3%82%AB%E6%95%B0 Wikipediaによると2種類の定義があるようですが、そのうち「数字の各桁をシャッフルしてできる数のうち、最大のものから最小のものを引き算して、元の数字と同じになるもの」という2つめの定義のほうをHaskellで実装して遊んでみました。 まず、「数字の各桁をシャッフルしてできる数のうち、最大のものから最小のものを引き算する」関数をさくっと書きます。 module Kaprekar where import Data.List (permutations, unfoldr) toDigits :: Int -> [Int] toDigits n =

[cj3029412]

すきすきー😺