Skip to content

Instantly share code, notes, and snippets.

@olaugh

olaugh/palin.hs

Created August 28, 2012 18:05
Show Gist options
  • Save olaugh/3501509 to your computer and use it in GitHub Desktop.
Save olaugh/3501509 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
palin.hs
import Data.List
main = interact $ show . filter isPalin . (>>= subsequences) . words
where isPalin x = length x>=10 && x==reverse x
-- ["CIOALLAOIC","DEOISSIOED","ESSENNESSE","ESSENTNESSE","ESSENINESSE",
-- "ESSENANESSE","ESSENLNESSE","LACIOOICAL","LACIOLOICAL","SEITIITIES",
-- "SEITIVITIES","KINNIINNIK","KINNIKINNIK","KINNIINNIK","KINNIKINNIK",
-- "NOINEENION","NOINERENION","NOINEVENION","NOITEETION","NOITERETION",
-- "NOITEVETION","NORETTERON","NORETHTERON","NORETITERON","NORETSTERON",
-- "NORETTERON","NORETHTERON","NORETITERON","NORETSTERON","SESSEESSES",
-- "SESSENESSES","SESSEESSES","SESSEESSES","SESSEDESSES","SESSEDESSES",
-- "SESSENESSES","SESSENESSES","ECNASSANCE","ECNASSANCE","ECNASSANCE",
-- "ECNASSANCE","RHPARRAPHR","RHPARORAPHR","RHPARGRAPHR","RHPARRAPHR",
-- "RHPARORAPHR","RHPARGRAPHR","SENSEESNES","SENSELESNES","SENSEESNES",
-- "SENSELESNES","SENSEESNES","SENSELESNES","SENSEESNES","SENSELESNES",
-- "SENSEESNES","SENSELESNES","SENSEESNES","SENSELESNES","SENSEESNES",
-- "SENSELESNES","SENSEESNES","SENSELESNES","SENSEESNES","SENSELESNES",
-- "SENSEESNES","SENSELESNES","SENSEESNES","SENSELESNES","SENSEESNES",
-- "SENSELESNES","SESESSESES","SESESSESES","SESESSESES","SESESSESES",
-- "SEITIITIES","SEITIVITIES","SENSUUSNES","SENSUOUSNES","SENSUUSNES",
-- "SENSUOUSNES","SENSUUSNES","SENSUOUSNES","SENSUUSNES","SENSUOUSNES",
-- "SENSUUSNES","SENSUOUSNES","SENSUUSNES","SENSUOUSNES","SUOITTIOUS",
-- "SUOITITIOUS","TANILLINAT"]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment