Aug. 17th, 2014

orleanz: (main)
(все это чисто в плане изучения Хаскелла)

Find the largest palindrome made from the product of two 3-digit numbers.
A palindromic number reads the same both ways.

isPalindrom :: Show x => x -> Bool
isPalindrom x = y == reverse y where y = show x

main = do 
    print $ maximum $ filter isPalindrom [ i*j | i <- range, j <- range ] 
      where range = [100 .. 999]


И после этого - Хаскелл называют "темным" ! Кристальнейшая прозрачность!
orleanz: (main)
Российские войска, переодетые в костюм Путина, приближались ко границе с Украиной ...

Profile

orleanz: (Default)
orleanz

December 2018

S M T W T F S
      1
2345678
9101112 131415
16171819202122
23242526272829
3031     

Most Popular Tags

Style Credit

Expand Cut Tags

No cut tags
Page generated Aug. 18th, 2025 10:41 pm
Powered by Dreamwidth Studios