A C H A L A S I A C R E N I D E N S H E X A N D R I C A N A B O L I T E L I N O L E N I N A D D L E H E A D S E R I N E T T E I N I T I A T O R A S C E N D E R S
A A A A A A A A A A A A A A A A A A A A A A A A A
A I
I Aαβγδεζηθικλμνξοπρστυφχψω βγδεζηθικλμνξοπρστυφχψωα γδεζηθικλμνξοπρστυφχψωαβ δεζηθικλμνξοπρστυφχψωαβγ εζηθικλμνξοπρστυφχψωαβγδ ζηθικλμνξοπρστυφχψωαβγδε ηθικλμνξοπρστυφχψωαβγδεζ θικλμνξοπρστυφχψωαβγδεζη ικλμνξοπρστυφχψωαβγδεζηθ κλμνξοπρστυφχψωαβγδεζηθι λμνξοπρστυφχψωαβγδεζηθικ μνξοπρστυφχψωαβγδεζηθικλ νξοπρστυφχψωαβγδεζηθικλμ ξοπρστυφχψωαβγδεζηθικλμν οπρστυφχψωαβγδεζηθικλμνξ πρστυφχψωαβγδεζηθικλμνξο ρστυφχψωαβγδεζηθικλμνξοπ στυφχψωαβγδεζηθικλμνξοπρ τυφχψωαβγδεζηθικλμνξοπρσ υφχψωαβγδεζηθικλμνξοπρστ φχψωαβγδεζηθικλμνξοπρστυ χψωαβγδεζηθικλμνξοπρστυφ ψωαβγδεζηθικλμνξοπρστυφχ ωαβγδεζηθικλμνξοπρστυφχψplease do not ask why I have this handy for cutting and pasting.
import System.IO
import qualified Data.Set as S
main = do
words <- readFile "/usr/share/dict/words" >>= return . filter (\w -> length w == 5) . lines
wordset <- return $ S.fromList words
canbenonmiddle <- return $ [w | w <- words, (reverse w) `S.member` wordset]
canbemiddle <- return $ [w | w <- canbenonmiddle, w == (reverse w)]
squares <- return $ [(first, second, third, reverse second, reverse first) |
first <- canbenonmiddle,
second <- canbenonmiddle,
head second == first !! 1,
second !! 4 == first !! 3,
third <- canbemiddle,
head third == first !! 2,
third !! 1 == second !! 2]
mapM_ (putStrLn.show) squares
mapM_ (putStrLn.show) [size canbenonmiddle, size canbemiddle]Third, can all those
var <- return $ blahblahbe replaced with 'let' statements? Or "let ... in ...." statements?
சி வா ஜி
வா யி லே
ஜி லே பி
si va ji
va yi le
ji le bi
O R A N G E
R ? ? ? ? ?
A ? ? ? ? ?
N ? ? ? ? ?
G ? ? ? ? ?
E ? ? ? ? ?Ey Edip pide ye,which is translated as "Oh Edip, eat pide", looks like the ones I used to produce: "David, I vad!"
« Older Long Shot Magazine is putting together another iss... | The British Pathé Archiv... Newer »
This thread has been archived and is closed to new comments
posted by griphus at 2:36 PM on July 26, 2011 [17 favorites]