F#在函数中返回

如何解决F#在函数中返回

我是 F# 的新手并且玩过一点,我已经使用过 C#。最近让我有点困惑的一件事是在函数中返回值。我不明白一切都是一个表达式(如 here 所述)并且以下代码不会编译或执行:

function validateTextProps(props: GenericProps): props is InputProps<TextState> {
  return props.state.type === Types.TEXT;
}

const props: GenericProps = { state: { type: Types.TEXT } };
if(validateTextProps(props)){
  TextInput(props);
}

相反,你必须这样写:

let foo x =
   if x = 0 then x + 2 //The compiler will complain here due to a missing else branch.
   x - 2

我确实明白为什么会这样,并且在循环时也会出现类似的问题。

但是考虑一个函数,它等于 C# 中列表的“包含”函数:

let foo x =
   if x = 0 then x + 2
   else x - 2

如果您将其一一翻译,编译器会告诉您缺少 else 分支,我确实不明白为什么:

public static bool Contains(int num,List<int> list) {
   foreach (int i in list) {
      if (i == num) return true;
   }
   return false;
}

相反,您可能会编写这样的递归函数:

let Contains (num : int) list =
   for i in list do
      if i = x then true //Won't compile due to a missing else branch!
   false

我对此没有意见,但在某些情况下,很难进行模式匹配。真的没有办法做到上面描述的吗?难道不能使用像 yield 这样的关键字(或类似于 C# 中的“return”)?

解决方法

我同意你的看法:在 C# 中提前退出很方便,尤其是通过避免嵌套 if 来提高可读性。

在 F# 中,为了避免嵌套 if 或太大的模式匹配(即案例过多或输入元组的项目过多),我们可以提取子函数:具有有意义的名称,它改进了代码可读性。

对于 C# 中的列表和序列 (IEnumerable),使用内置方法或 LINQ 的代码通常比使用 for/foreach 循环更具声明性。这并不总是正确的,但值得一试。 ? 顺便说一句,在某些情况下,ReSharper 可以建议将 for/foreach 循环重构为 LINQ 查询。

→ 这种编码风格很容易翻译成 F#:

  • 列表:
    • C# → list.Contains(num)
    • F# → [1;2;3] |> List.contains 1
  • 序列:
    • C# → list.Any(x => x == num)
    • F# → seq { 1;2;3 } |> Seq.exists ((=) 1)
    • F# → seq { 1;2;3 } |> Seq.contains 1
,

C# 中的早期 return 实际上只是一个 GOTO。我会认为这种糟糕的风格,除了“弹跳模式”(验证)。那里的论点通常是尽早摆脱精神负担。鉴于 F# 的表现力,大多数验证都可以通过类型进行,因此不需要(或至少不需要)无处不在的 if param = null || invalid(param) return 样式。一旦你接受了功能风格,你会发现对它的需求越来越少。如果需要,您可以随时模拟 goto :-)

exception Ret of string

let needsEarlyReturn foos =
    try
        for f in foos do
            if f > 42 then Ret "don't do" |> raise
            // more code
            if f > 7 then Ret "that ever" |> raise
        "!"
    with Ret v -> v
,

请记住,F# 编译器将尾递归转换为循环。因此,解决方案实际上是使用尾递归辅助函数,即使您使用的类型不具有 F# 列表的模式匹配支持。一些例子:

一个包含任何 IEnumerable<int> 的方法:

let contains item (xs : int seq) =
    use e = xs.GetEnumerator()
    let rec helper() = e.MoveNext() && (e.Current = item || helper())
    helper()

System.Collections.Generic.List<int> 的类似方法:

let contains item (xs : ResizeArray<int>) =
    let rec helper i = i < xs.Count && (xs.[i] = item || helper (i + 1)) 
    helper 0

一般来说,你可以像这样使用辅助函数提前退出(为了保持示例简单,循环是无限的;唯一的出路是通过提前退出):

let shortCircuitLoop shouldReturn getNextValue seed =
    let rec helper accumulator =
        if shouldReturn accumulator then accumulator else helper (getNextValue accumulator)
    helper seed

这个的 C# 版本:

T ShortCircuit<T>(Func<T,bool> shouldReturn,Func<T,T> getNextValue,T seed) {
    while (true)
    {
        if (shouldReturn(seed))
            return seed;
        seed = getNextValue(seed);
    }
}

这些示例仅用于说明,当然,作为教学练习。在生产代码中,如 Romain Deneau 所指出的,您需要使用诸如 Seq.containsList.contains 等库函数。

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -&gt; systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-