Poetry night!

Author: Jonas Juselius

src/FsPoem/FsPoem.fsproj

@@ -1,10 +1,10 @@
-<?xml version="1.0" encoding="utf-8"?>
 <Project Sdk="Microsoft.NET.Sdk">
   <PropertyGroup>
     <OutputType>Exe</OutputType>
     <TargetFramework>netcoreapp2.1</TargetFramework>
   </PropertyGroup>
   <ItemGroup>
+    <Compile Include="Poem.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
   <Import Project="..\..\.paket\Paket.Restore.targets" />

src/FsPoem/Poem.fs

@@ -0,0 +1,61 @@
+namespace FsPoem
+
+module Poetry =
+    open System.IO
+
+    let lines (s : string) = s.Split [|'\n'|] |> List.ofArray
+
+    let unlines (sl : string list) = 
+        sl |> List.fold (fun a s -> a + s + "\n") "" 
+    
+    let sortTextLines s = unlines (List.sort (lines s)) 
+    let sortTextLines' s = s |> lines |> List.sort |> unlines
+    let sortTextLines'' = lines >> List.sort >> unlines
+
+    let sortLines s = s |> lines |> List.sort |> unlines
+    let revLines s = s |> lines |> List.rev |> unlines
+    let twoLines s = s |> lines |> List.take 2 |> unlines
+
+    let byLines f s = s |> lines |> f |> unlines
+
+    let sortLines' = byLines List.sort
+    let revLines' = byLines List.rev
+    let twoLines' = byLines (List.take 2)
+
+    let indent s = "   " + s
+    let indent' = (+) "   " 
+
+    let indentEachLine = byLines (List.map indent)
+
+    let eachLine f s = s |> lines |>  List.map f |> unlines
+    let eachLine' f = lines >>  List.map f >> unlines
+    let eachLine'' f = byLines (List.map f) 
+
+    let indentEachLine' = eachLine indent
+
+    let private yell (s : string) = s.ToUpper () + "!!! "
+
+    let yellEachLine = eachLine yell
+
+    let words (s : string) = s.Split [|' '|] |> List.ofArray
+
+    let unwords = List.fold (+) "" 
+
+    let eachWord f = words >> List.map f >> unwords
+
+    let yellEachWord = eachWord yell
+
+    let eachWordOnEachLine f = eachLine (eachWord f)
+
+    let yellEachWordOnEachLine = eachWordOnEachLine yell
+
+    let poem = File.ReadAllText "siphonaptera.txt"
+    let sortedPoem = sortLines poem
+
+    let run () = 
+        printfn "%s" (revLines poem)
+        printfn "%s" (poem |> revLines |> twoLines)
+        printfn "%s" (poem |> indentEachLine)
+        printfn "%s" (poem |> yellEachLine)
+        printfn "%s" (poem |> yellEachWord)
+        printfn "%s" (poem |> yellEachWordOnEachLine |> indentEachLine)

src/FsPoem/Program.fs

@@ -1,8 +1,10 @@
-// Learn more about F# at http://fsharp.org
+namespace FsPoem
 
-open System
+module Main =
+    open Poetry
 
-[<EntryPoint>]
-let main argv =
-    printfn "Hello World from F#!"
-    0 // return an integer exit code
+    [<EntryPoint>]
+    let main argv =
+        printfn "Hello World from F#!"
+        Poetry.run ()
+        0 

src/FsPoem/siphonaptera.txt

@@ -0,0 +1,4 @@
+Big fleas have little fleas upon their backs to bite 'em,
+And little fleas have lesser fleas, and so, ad infinitum.
+And the great fleas, themselves, in turn, have greater fleas to go on;
+While these again have greater still, and greater still, and so on.