Sha256: 242641249a3145c7923f97221675f0feea7967d5f6e526a40913b76d135ac138
Contents?: true
Size: 883 Bytes
Versions: 286
Compression:
Stored size: 883 Bytes
Contents
module Palindrome
let isPalindrome n =
let mutable current = n
let mutable result = 0
while(current > 0) do
result <- result * 10 + current % 10
current <- current / 10
result = n
let palindrome predicate minFactor maxFactor =
let allPalindromes =
[for y in minFactor..maxFactor do
for x in minFactor ..y do
if isPalindrome (x * y) then
yield x * y, (x, y)]
let value =
allPalindromes
|> List.map fst
|> predicate
let factors =
allPalindromes
|> List.filter (fun x -> fst x = value)
|> List.map snd
|> List.sort
(value, factors)
let largestPalindrome minFactor maxFactor = palindrome List.max minFactor maxFactor
let smallestPalindrome minFactor maxFactor = palindrome List.min minFactor maxFactor
Version data entries
286 entries across 286 versions & 1 rubygems