Old lady swallowed a fly: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,053: / Line 1,053: @@
   ,"cat.\t\nImagine that. She swallowed a cat."
   ,"dog.\t\nWhat a hog to swallow a dog."
-  ,"goat.\t\nShe just opened her throat and swallowed that goat."
+  ,"goat.\t\nShe just opened her throat and swallowed the goat."
-  ,"cow.\nI don't know how she swallowed that cow."
+  ,"cow.\nI don't know how she swallowed the cow."
   ,"horse.\nShe's dead, of course."]
 beginnings = map ("There was an old lady who swallowed a "++) animals
-swalloed x y = "She swallowed the "++takeWhile (/='.') y++" to catch the "++ takeWhile (/='\t') x
+lastVerse = reverse $ ["She swallowed the "++takeWhile (/='.') y++" to catch the "++ takeWhile (/='\t') x
+                      | (x:y:_:_)<-tails animals]
-lastVerse = tail $ reverse $ zipWith swalloed animals $ tail animals
-main =  putStr $ concatMap unlines $  zipWith (:) beginnings $ cycle $ reverse $ tails $ lastVerse</lang>
+main =  putStr $ concatMap unlines $  zipWith (:) beginnings $ reverse $ ([]:) $ tails $ lastVerse</lang>
 {{out}}<pre>There was an old lady who swallowed a fly.
 I don't know why she swallowed a fly.