python-从for循环返回false,否则在F#中继续
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了python-从for循环返回false,否则在F#中继续，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3275字，纯文字阅读大概需要5分钟。
内容图文
我正在出于专业目的学习F#.我知道Python / Django和C#/.NET Core.因此,我想将我用Python编写的一些代码转换为F#.我不确定要挂断电话或只是感到疲倦,以为我可以进行一些协作.我想继续做,但发现那不是一个选择.原始的python代码：
#!/Users/ryandines/.local/share/virtualenvs/netcoreapp2.0-5nmzfUwt/bin/python
NUMBER_OF_TESTS = input()
INT_MIN = -2**32
def can_represent_bst(pre):
stack = []
root = INT_MIN
for value in pre:
if value < root:
return False
while(stack and stack[-1] < value):
root = stack.pop()
stack.append(value)
return True
for test in range(int(NUMBER_OF_TESTS)):
node_count = int(input())
nodes = list(map(int, input().split(' ')))
print("NODES: " + str(nodes))
if can_represent_bst(pre=nodes):
print("YES")
else:
print("NO")
到目前为止,这就是我在F#中可以编译和运行的内容：
open System
let NumberOfTests = Console.ReadLine() |> int
let root = Int32.MinValue
let seq1 = seq { for i in 0 .. NumberOfTests-1 -> (i, i*i) }
let CanRepresentBST args =
printfn "Passed args: %s" args
let result = args.Split ' '
let IntList = [for i in result -> i |> int32]
for value in IntList do
printfn "%d" value
[<EntryPoint>]
let main argv =
printfn "Hello World from F#!"
printfn "Number of tests: %d" NumberOfTests
printfn "Int min value: %d" root
for _ in seq1 do
let NodeCount = Console.ReadLine()
let Nodes = Console.ReadLine()
printfn "NodeCount: %s" NodeCount
let _ = CanRepresentBST Nodes
0 |> ignore
0
未完成的部分是这样的：
if value < root:
return False
while(stack and stack[-1] < value):
root = stack.pop()
stack.append(value)
可能要睡在上面,但是如果有人为我做些繁重的工作,我会很喜欢的,这样我醒来时就可以把它敲下来.
解决方法:
这是一个部分解决方案(因为它试图复制Python,而不是正确地使用F#)：
open System
let NumberOfTests = Console.ReadLine() |> int
let rec getNewRoot value stack root =
let mutable newRoot = root
let mutable acc = stack
while not (List.isEmpty acc) && (List.head acc) < value do
newRoot <- List.head acc
acc <- List.tail acc
(newRoot, acc)
let CanRepresentBST args baseRoot =
printfn "Passed args: %s" args
let intList = args.Split ' ' |> Seq.map int |> Seq.toList
let rec subfunc rem acc root =
match rem with
| [] -> true
| r :: rs ->
if r < root then
false
else
let (newRoot, newAcc) = getNewRoot r acc root
subfunc rs (r :: newAcc) newRoot
subfunc intList [] baseRoot
printfn "Number of tests: %d" NumberOfTests
let root = Int32.MinValue
printfn "Int min value: %d" root
for _ in 1..NumberOfTests do
let NodeCount = Console.ReadLine()
let Nodes = Console.ReadLine()
printfn "NodeCount: %s" NodeCount
if CanRepresentBST Nodes root then
printfn "YES"
else
printfn "NO"
我将其更改为fsx交互式脚本,以使其更易于测试(使用fsi filename.fsx运行),但我认为将其转换回编译程序应该很容易.
请注意,由于getNewRoot函数的作用,许多(如果不是大多数)F#爱好者都不喜欢该程序-那里的可变性太多了.
我将root的定义移至程序的末尾,并使CanRepresentBST将其作为参数,以使函数纯净-如果始终以MinValue作为root开头,则可以在CanRepresentBST的顶部声明它. CanRepresentBST现在使用一个辅助子功能(无用的子功能),该子功能获取输入列表其余部分的参数,累积的“堆栈”和当前根值.然后,它递归处理输入列表,像以前一样返回false,在列表末尾返回true,或者通过尾部递归调用正常处理它.
getNewRoot用于封装根值的更新和累积堆栈的调整.
请注意,这是Python的相当接近的翻译版本,这就是为什么它是如此膨胀的原因.最好是回到您尝试实现的本质,并使用F#中的功能编写新的东西.如果其他人想发布更好的版本,请这样做！
内容总结
以上是互联网集市为您收集整理的python-从for循环返回false,否则在F#中继续全部内容，希望文章能够帮你解决python-从for循环返回false,否则在F#中继续所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。