Anonymous user
Odd word problem: Difference between revisions
Added F# version
(Added F# version) |
|||
Line 604:
handle(I(), false, I, O).
</lang>
=={{header|F_Sharp|F#}}==
<p>A recursive solution.</p>
<lang fsharp>open System
open System.Text.RegularExpressions
let mutable Inp = Console.In
let Out c = printf "%c" c; (if c = '.' then Environment.Exit 0)
let In() = Inp.Read() |> Convert.ToChar
let (|WordCharacter|OtherCharacter|) c =
if Regex.IsMatch(c.ToString(),"[a-zA-Z]") then
WordCharacter
else
OtherCharacter
let rec forward () =
let c = In()
let rec backward () : char =
let c = In()
match c with
| WordCharacter ->
let s = backward() in Out c; s
| OtherCharacter -> c
Out c
match c with
| WordCharacter -> forward()
| OtherCharacter -> backward()
[<EntryPoint>]
let main argv =
if argv.Length > 0 then Inp <- new System.IO.StringReader(argv.[0])
let rec loop () = forward() |> Out; loop()
loop()
0</lang>
{{out}}
<pre>
>echo we,are;not,in,kansas;any,more. | RosettaCode
we,era;not,ni,kansas;yna,more.
>echo what,is,the;meaning,of:life. | RosettaCode
what,si,the;gninaem,of:efil.</pre>
=={{header|Factor}}==
| |||