我想写抽象到Console.ReadLine()函数转换成字符串序列F#如何抽象到Console.ReadLine()作为字符串SEQ
的序列应该打破时线= NULL
ConsoleLines(): unit -> string seq
使用方法如下:
for line in ConsoleLines() do
DoSomething line
如何编写此函数?
感谢
我想写抽象到Console.ReadLine()函数转换成字符串序列F#如何抽象到Console.ReadLine()作为字符串SEQ
的序列应该打破时线= NULL
ConsoleLines(): unit -> string seq
使用方法如下:
for line in ConsoleLines() do
DoSomething line
如何编写此函数?
感谢
Seq.initInfinite (fun _ -> Console.ReadLine())
它并不过分漂亮,但它按预期工作:
let rec ConsoleLines() =
seq {
match Console.ReadLine() with
| "" -> yield! Seq.empty
| x -> yield x; yield! ConsoleLines()
}
let ConsoleLines =
seq {
let finished = ref false
while not !finished do
let s = System.Console.ReadLine()
if s <> null then
yield s
else
finished := true
}
(请注意,您必须使用REF//:!=做一个序列表达式中的可变状态。)
let consoleLines = Seq.takeWhile ((<>) "") (seq { while (true) do yield System.Console.ReadLine() })
稍有不同:
let readLines (sr:TextReader) =
Seq.initInfinite (fun _ -> sr.ReadLine())
|> Seq.takeWhile (fun x -> x <> null)
let consoleLines() =
readLines Console.In