F#中更高效的递归Tetranacci函数
F#是一种函数式编程语言，它支持递归函数的定义和使用。递归是一种算法或函数调用自身的方式，可以用于解决许多问题，包括计算斐波那契数列、阶乘等。
Tetranacci函数是一个计算Tetranacci数列的函数，Tetranacci数列是一个类似于斐波那契数列的数列，但每个数字是前四个数字的和。例如，Tetranacci数列的前几个数字是0、0、0、1、1、2、4、8、15、29等。
在F#中，可以使用递归函数来计算Tetranacci数列。以下是一个更高效的递归Tetranacci函数的示例代码：
let rec tetranacci n =
match n with
| 0 -> 0
| 1 -> 0
| 2 -> 0
| 3 -> 1
| _ -> tetranacci (n-1) + tetranacci (n-2) + tetranacci (n-3) + tetranacci (n-4)这个函数使用模式匹配来处理特殊情况，当n为0、1、2、3时，直接返回对应的Tetranacci数。对于其他情况，递归地调用tetranacci函数来计算前四个数字的和。
这个函数的优势是使用了模式匹配来处理特殊情况，避免了不必要的递归调用，提高了计算效率。
Tetranacci函数的应用场景包括数学计算、算法研究等。例如，可以将Tetranacci数列用于解决某些数学问题或算法优化。
腾讯云提供了丰富的云计算产品和服务，其中包括云服务器、云数据库、云存储等。这些产品可以用于支持F#开发和部署。具体推荐的腾讯云产品和产品介绍链接地址可以根据实际需求来选择，例如可以使用腾讯云的云服务器来部署F#应用程序，使用云数据库来存储数据等。
请注意，本回答仅供参考，具体的产品选择和使用应根据实际需求和情况进行评估和决策。
相关·内容
1回答
C#:
在C#中，我有这样的东西：
IImmutableDictionary<string, string> map = new Dictionary<string, string>
{
{"K1", "V1"},
{"K2", "V2"},
{"K3", "V3"},
}.ToImmutableDictionary();
IEnumerable<string> keys = new[] {"K1,K3"};
map =
浏览 0提问于2018-01-26得票数 6
回答已采纳
我喜欢F#，我真的非常喜欢。在被“函数式编程”()-bug咬伤之后，我强迫自己在有机会的时候使用它。事实上，我最近(在一个星期的假期期间)用它来做。
然而，到目前为止，我的尝试(见一个与我第一次尝试相关的问题)似乎表明，尽管无疑是美丽的.F#的执行速度是我使用过的所有语言中最慢的。
我的代码做错了什么吗？
我详细地解释了我在我的中所做的事情，在我的实验中，我看到OCaml和其他团队的运行速度比F#快5倍到35倍。
难道只有我有这样的经历吗？我感到沮丧的是，我最喜欢的语言，也是最慢的语言
编辑：直接GitHub链接，在各种语言形式.
EDIT2：多亏了托马斯和丹尼尔，速度有了很大的提高：
最
浏览 4提问于2011-07-22得票数 29
回答已采纳
4回答
在F#中，什么时候使用？
、、、
好的，只有在F#中，这就是我现在理解它的方式：
有些问题本质上是递归的(构建或读取树结构来命名其中一个问题)，然后使用递归。在这些情况下，最好使用尾递归来中断堆栈。
有些语言是纯函数式的，所以您必须使用递归而不是while-循环，即使问题本质上不是递归的。
因此，我的问题是:既然F#也支持命令式范例，那么您会在F#中使用尾递归来处理不是自然递归的问题吗？特别是我已经阅读了编译器，它重新理解了尾递归，并且只是在while循环中对其进行了转换。
如果是的话:为什么？
浏览 5提问于2009-11-25得票数 18
回答已采纳
1回答
我正在为 (扰流板警报)问题制定一个解决方案，其中我需要一个函数，该函数接受一个字符串(或一个char list)，并在它们反应时移除每对字符。这个练习描述了两个字符，或者一个“聚合物”中的“元素”，当它们是同一个字母，但只在不同的情况下发生反应；因此，从AbBc开始将留给您Ac。请记住，在一个反应之后，两个字符可能会在以前没有的地方彼此相邻，从而引发新的反应。
我认为我可以通过使用一个递归函数来解决这个问题，这个函数只处理前两个字符并递归地调用自己，但是由于输入字符串相当大，这会导致stackoverflow exception。
let rec react polymer =
ma
浏览 0提问于2019-08-07得票数 2
回答已采纳
1回答
我是新来F#的。无法处理语法。我需要将递归扩展方法从C #转换到F#。但是不管我做什么，编译器都不喜欢我的代码。
在这里，我的方法：
public static class ViewExtensions
{
public static UIView FindFirstResponder(this UIView view)
{
if (view.IsFirstResponder)
{
return view;
}
foreac
浏览 7提问于2020-07-18得票数 1
回答已采纳
2回答
我正在尝试在F#中反转一个整数。我有以下方法： //let the number be n
rev = 0
while(n != 0){
rev = rev * 10 + n % 10;
n /= 10;
}
// rev now contains the reverse integer of n 我是F#的新手，我不知道如何使用惯用的语法来实现这个实现。我不想通过先将数字转换为字符串来反转数字。如何在F#中以惯用的方式实现此功能？
浏览 36提问于2020-11-25得票数 3
回答已采纳
我正在尝试通过移植一些Haskell代码来教授我自己的F#。
具体来说，我正在尝试移植显示为的倒计时问题
中列出了Haskell代码
我正在尝试在F#中创建以下Haskell类型：
data Op = Add | Sub | Mul | Div
data Expr = Val Int | App Op Expr Expr
在F#中，我认为Op类型的定义如下：
type Op = | Add | Sub | Mul | Div
我遇到了Expr类型的问题。
如何创建一个递归类型？从上看，似乎不能在F#中创建Expr类型。
还有什么是'App‘类型的F#等价物，它将Op类
浏览 0提问于2009-12-17得票数 5
回答已采纳
3回答
一个简单的附加函数，如下所示(在F#中)：
let rec app s t =
match s with
| [] -> t
| (x::ss) -> x :: (app ss t)
当s变大时会崩溃，因为函数不是尾递归的。我注意到F#的标准append函数不会在大列表中崩溃，所以它必须以不同的方式实现。所以我想知道: append的尾递归定义是什么样子的?我想出了这样的东西：
let rec comb s t =
match s with
| [] -> t
| (x::ss) -> comb ss (x::
浏览 1提问于2010-05-20得票数 9
回答已采纳
5回答
我想开始一些关于简化F#中不同表达式的问题。
任何人都有更好和/或更简单的insertAt实现的想法(参数也可以重新排序)。可以使用列表或序列。
下面是一些start实现：
let insertAt x xs n = Seq.concat [Seq.take n xs; seq [x]; Seq.skip n xs]
浏览 0提问于2009-07-22得票数 0
回答已采纳
我有这样的代码：
// pseudo code
let maxRetry = 10
let mutable tryCount = 0
let mutable myResult: Result option = None
while tryCount < maxRetry do
let result = try something
if result = success then
myResult <- some result
tryCount <- maxRetry
else
some delay
m
浏览 3提问于2020-05-25得票数 0
回答已采纳
为什么F#和OCaml (可能还有其他语言)中的函数在默认情况下不是递归的？
换句话说，为什么语言设计者认为显式地让您在声明中键入rec是个好主意：
let rec foo ... = ...
并且默认情况下不给函数提供递归功能？为什么需要显式的rec构造？
浏览 0提问于2009-05-23得票数 110
回答已采纳
2回答
我对F# (今天开始使用它)完全陌生，对函数式编程相对较新(我对Lisp的经验不多)。我希望在满足某个条件时返回一个值，从而退出一个函数，这样循环的其余部分就不会被执行。下面是我想要做的事情的C#示例：
bool CheckRow (int n, int i)
{
for(int j = 0; j < 9; j++)
if (n == sudoku[i][j])
return false;
return true;
}
我尝试在F#中实现类似的函数(sudoku是一个array2D)：
let CheckRow (n : int)
浏览 5提问于2016-11-22得票数 5
回答已采纳
2回答
据我所知，如果不返回任何其他内容，F#函数会返回一个单位，但此函数返回一个字符串。有人能帮我解释一下为什么它会返回一个单位吗？
let rec processList aList str =
match aList with
| h::t -> let x = Regex.Replace(str, h, h, RegexOptions.IgnoreCase)
processList t x
| [] -> printfn "%s" str
浏览 4提问于2013-07-16得票数 1
回答已采纳
2回答
我是一个处理琐碎问题的F#新手。如何检查两个整数是否为余素数？我发现方法非常有趣，而且，IMHO非常优雅。我正试着用F#翻译它，没有运气。我想，这主要是因为我缺乏经验。
无论如何，这是我迄今为止“最好的”尝试：
let prime (x, y) =
if y <> 0 then
(x, y) <| (y, x % y)
else
x;;
它应导致，即
prime 23 13;;
- : bool = true
显然，这是行不通的。在F#中处理这样一个问题的最
浏览 2提问于2016-10-21得票数 4
回答已采纳
我是F#的新手。我正在尝试使用命名管道从F#与java通信。下面的代码可以工作，但我不确定是否有更好的方法来做到这一点(我知道无限循环是一个糟糕的想法，但这只是一个概念证明)，如果有人有任何想法来改进这段代码，请发表你的评论。
预先感谢Sudaly
open System.IO
open System.IO.Pipes
exception OuterError of string
let continueLooping = true
while continueLooping do
let pipeServer = new NamedPipeServerStream("te
浏览 0提问于2010-04-24得票数 3
我正在学习F# (函数式编程的一般新手，尽管多年来一直使用C#的函数式方面，但这是非常不同的)，我读到的一件事是F#编译器识别尾递归并将其编译成while循环(请参阅)。
我不明白的是，为什么你要写一个递归函数，而不是一个while循环，如果它无论如何都会变成这样的话。特别是考虑到你需要做一些额外的工作来使你的函数递归。
我有一种感觉，有人可能会说while循环并不是特别有功能性，你想表现出所有的功能性，所以你使用了递归，但是为什么编译器把它变成while循环就足够了呢？
有人能给我解释一下吗？
浏览 3提问于2011-05-07得票数 11
回答已采纳
为什么我必须告诉F#，我是在使用int还是浮动在这一行中，let total counts = Array.sum counts到let total (counts:int[]) = Array.sum counts？
来自sml，我发现F#类型推断有点限制。
我对函数式语言的前景不太了解，但如果有人能告诉我在野外使用哪种F语言，我会感兴趣的。
浏览 19提问于2022-03-23得票数 1
回答已采纳
5回答
因此，我有这4个例子，其中3个是从这个得到的。
我刚上了一门关于函数式编程的课程(在Racket中)，如果我对F#的基本理解是正确的话，我就是这样做的。
let data = [1.;2.;3.;4.]
let sqr x = x * x
// Bad, very bad
let sumOfSquareI nums =
let mutable acc = 0.0
for x in nums do
acc <- acc + sqr x
acc
// Better than above, but may cause stack overfl
浏览 7提问于2016-04-21得票数 3
回答已采纳
2回答
我需要一个F#中的递归函数，它为我提供了一个非空列表的最大值。示例：
biggest [2;4;5;3;9;3]
应该返回9
更新1
我正在学习递归函数，这是一本没有答案的书中的练习。我想在这里问是可以的，但这似乎不是个好主意。好的，我没有写任何代码示例，所以它似乎是一个懒人的家庭作业练习。不管怎样，这是我最好的尝试：
let rec highest l =
match l with
|[] -> 0
|x::y::xs -> if x > y then highest x::xs
else highest y
浏览 0提问于2016-11-01得票数 1
回答已采纳
4回答
我目前在使用F#进行函数式编程方面做得相当不错。然而，当F#/函数式编程社区中似乎有更好的习惯用法时，我倾向于使用递归进行大量的编程。那么，本着学习的精神，有没有一种更好/更地道的方法来编写下面的函数，而不需要递归呢？
let rec convert line =
if line.[0..1] = " " then
match convert line.[2..] with
| (i, subline) -> (i+1, subline)
else
(0, line)
结果如下：
> convert
浏览 2提问于2012-09-15得票数 2
回答已采纳
我试图在F#中将以下普通递归代码转换为尾递归代码，但我失败得很痛苦。
let rec insert elem lst =
match lst with
| [] -> [elem]
| hd::tl -> if hd > elem then
elem::lst
else
hd::(insert elem tl)
let lst1 = []
let lst2 = [1;2;3;5]
printfn "\nInserting
浏览 10提问于2020-11-07得票数 1
列举了F#性能有时优于C#的一些原因，在它的“第一”部分中说，只有F#才能生成尾调用。
那到底是什么意思？为什么这是一种性能提升？对于我使用大量递归的象棋应用程序来说，这一件事实际上可能会在F#和C#之间产生或破坏。
浏览 1提问于2015-08-27得票数 3
回答已采纳
3回答
阅读开头的F# -，我专注于以下段落：
来自OCaml背景的程序员在使用F#中的异常时应该小心。由于CLR的体系结构，抛出异常非常昂贵--比在OCaml中要昂贵得多。如果您抛出大量异常，请仔细分析代码，以确定性能成本是否值得。如果成本太高，请适当修改代码。
为什么，由于CLR，如果F#比在OCaml中抛出异常要花费更多？在这种情况下，正确修改代码的最佳方法是什么？
浏览 7提问于2012-06-09得票数 13
回答已采纳
自然数的阶乘(任何大于或等于0的数)是该数乘以自身的阶乘减去1，其中0的阶乘被定义为1。
例如：
0! = 1
1! = 1 * 0!
2! = 2 * 1!
3! = 3 * 2!
4! = 4 * 3!
5! = 5 * 4!
另一种书写方式是将1和n之间的所有自然数乘成n!。
5! = 1 * 2 * 3 * 4 * 5
如何用F#中的递归函数来表达这一点？我应该用递归函数来完成这个任务吗？
//Factorials!
let factorial n =
result = ?
浏览 12提问于2010-11-06得票数 7
回答已采纳
2回答
如何在F#中处理亲子关系
、、、
我正在尝试将很久以前编写的C#应用程序重写为F#，但遇到了一些麻烦，因为这是我第一次尝试用F#编写有意义的内容
在我的C#软件中，我有以下类"Buildings“，这是我需要在应用程序的其余部分中使用的父类：
public class Buildings()
{
Buildings()
{
Spectre = new Spectres(this);
}
public double Height;
}
还有一个名为"Spectres“的类，它只在建筑物中使用：
public class Spectres(Buildings prnt
浏览 0提问于2017-09-30得票数 2
根据F#的list
F#中的列表是同一类型的有序的、不变的系列元素
“F#中的列表被实现为单链接列表”
为什么不在内存中连续地实现它，因为它是不可变的，因此具有固定的大小？为什么要使用F# list而不是F# array？
浏览 0提问于2015-02-15得票数 5
回答已采纳
1回答
我是F#初学者，当我学习“递归值”时，我遇到了这个问题。
type Type =
| N of int * Type
| E
let rec a = N(2, b)
and b = N(3, E)
a |> printfn "%A"
I expect输出如下：
N(2, N(3, E))
但实际产出是：
N (2,null)
浏览 0提问于2019-04-29得票数 10
回答已采纳
既然.net有操作码，这能用来判断一个F#函数是否真的是尾递归的吗？
如果这是真的，有没有人做了一个识别尾部和非尾部函数的VS插件？
浏览 0提问于2012-03-14得票数 4
回答已采纳
3回答
在F#中，必须使用rec关键字。在Haskell中，不需要显式地判断给定函数是否是递归函数。
考虑到递归在函数式编程中的作用，在我看来，F#设计似乎相当奇怪。它是一个很好的语言设计决策，还是仅仅因为历史原因或由于实现限制而存在？
浏览 0提问于2012-08-28得票数 34
回答已采纳
2回答
我想知道oCaml是否将这段代码优化为尾递归，如果是的话，F#也是吗？
let rec sum xs =
match xs with
| [] -> 0
| x :: xs' -> x + sum xs'
浏览 4提问于2010-02-27得票数 9
回答已采纳
3回答
F#内存管理
、、、
在F#中，当您在循环中传递一个数组(递归函数调用自身)时，数组是否放在堆栈上(添加内存消耗)？在循环列表或引用对象时，它是如何工作的？您能以某种方式将内存消耗降到最低吗?也许可以使用ref (引用)？
浏览 2提问于2015-05-28得票数 2
回答已采纳
3回答
这是来自生成排列的函数程序的算法B (Topor，1982年)。
📷
我们在F#递归模块中实现了算法B，如下所示。
module rec Permutations.Permute2
let removeFirst (list: List<'t>) (item: 't): List<'t> =
match list with
| [] -> []
| head::tail when head = item -> tail
| head::tail -> head :: (removeFirst t
浏览 0提问于2018-03-13得票数 2
回答已采纳
3回答
我对C#有丰富的经验，但对F#和函数式编程还很陌生。现在，我试图在F#中实现一个类库。下面是一个函数:它接受整数列表<=9并将连续的9，9，9更改为9,9,9,9到9，10，11，12。例如，9；9；9；1；4；4；0；1；9；9；9；9；9将更改为9；10；11；1；4；0；1；9；10；11；11；12。
C#函数是微不足道的：
void ReleaseCap(List<int> items)
{
for (int i = 1; i < items.Count; i++)
{
var current = items[i];
浏览 3提问于2015-09-28得票数 4
回答已采纳
2回答
我需要帮助逆转F#中的位数，就像在这个问题中所做的那样。我是F#的新手，我想知道我们怎么能做到这一点？
let bitreverse x =
let mutable b = 0
while x do
b >>>= 1
b|= x & 1
x >>>= 1
b
我甚至不确定这里的语法是否正确。我对这门语言很熟悉。
浏览 0提问于2016-05-20得票数 2
回答已采纳
3回答
f#递归函数应该从列表中返回字符，该列表对应于列表中大于输入数字的最小数字。
例: f#递归函数应该类似于：
如果我输入: 0.05 (0.1，'*')，(0.5，'@')，(1.0，'!')
那么它的输出必须是：'*‘
如果我输入0.6 (0.1，'*')，(0.5，'@')，(1.0，'!')
那么它的输出必须是：'!‘
如果我输入2.0 (0.1，'*')，(0.5，'@')，(1.0，'!')
那么它的输出应该是“”
浏览 4提问于2019-11-20得票数 0
回答已采纳
4回答
我是F#的新手(今天才开始学习)，我试着递归实现斐波那契数列。我不确定它是语法上的还是逻辑上的错误
let rec fibonacciRecursive (x : int) = seq{
match x with
| 0 -> yield! [0]
| 1 -> yield! [0; 1]
| _ -> yield! fibonacciRecursive
|> Seq.pairwise
|> Seq
浏览 1提问于2018-09-24得票数 1
是否可以检查函数是否被声明为递归的，即使用let rec？
我有一个回忆录函数，但它不适用于任意递归函数。如果用户用这样的函数调用它，我想给出一个错误。(请告诉我，这是否是处理F#中错误的糟糕方法)
浏览 1提问于2015-08-31得票数 4
回答已采纳
在过去的几个月里，我一直在研究函数式语言，从F#到Haskell再到Scheme (球拍)。我从来没有真正使用过递归，但Haskell和它的模式匹配确实帮助我减少了对它们的恐惧。现在我使用了Scheme，我似乎默认使用递归方法。我很好奇，这是不是暗示着刚刚经历了一次"ooo shiny!“阶段或者递归是否是Scheme开发的主要部分。
附注:每当我编写递归方法时，我都在尝试尾递归。
浏览 1提问于2012-01-27得票数 5
回答已采纳
f#初学者尝试在没有反向或内置方法的情况下在f#中检查字符串是否为palidrome。这是我到目前为止想出来的，我觉得我已经快完成了。这当前没有编译。
let ispalidrome (str:string) =
let strlength = str.Length
let result = for i in 0 .. < strlength / 2 do
if str.[0] <> strlength then false
else true
浏览 0提问于2015-02-15得票数 0
1回答
树中节点的计数
、、、
与f#的战斗-战斗是在树的领域-特别是计算节点的数量。这是真正感兴趣的程序，因为我想最终在F#代码涉及多路树，不幸的是，它已经有了一个有点麻烦的开端-我希望你可以帮助！
99 f#系列中的问题61，要求计算二叉树的叶子。(下面给出的解决方案)计算节点，但我的问题是不理解
双递归是如何向左循环的(有趣的lacc ->循环右.)
cont (branchF x lacc racc)是什么，我的印象是"abc“函数，但这只需要两个参数.
loop t id id的类型是单位-我看不出这是怎么暗示的
基本上不理解这一点，也不理解它在树中的流动顺序(调试和步骤证明没有帮
浏览 3提问于2013-02-26得票数 2
回答已采纳
3回答
我已经编写了这段F#代码来统计列表中的单词频率，并向C#返回一个元组。你能告诉我怎样才能使代码更有效或更短吗？
let rec internal countword2 (tail : string list) wrd ((last : string list), count) =
match tail with
| [] -> last, wrd, count
| h::t -> countword2 t wrd (if h = wrd then last, count+1 else last @ [h], count)
let internal countword1 (str
浏览 3提问于2012-03-08得票数 3
回答已采纳
2回答
递归函数参数
、、
我创建了一个简单的递归函数，并期望它能够工作(但它不能)：
open System
open System.Threading
let f =
let r = Random()
let rec d =
printfn "%d" (r.Next())
Thread.Sleep(1000)
d
d
f
在Intellisense的帮助下，我得到了以下工作函数(但不了解为什么以前的函数不能工作)：
open System
open System.Threading
let f : unit =
let
浏览 4提问于2016-04-02得票数 1
回答已采纳
2回答
C++到F#的平滑转换
、、、
大家好，我有一段来自C++的代码。
for (int i=0; i < nObstacles; i++)
{
int x,y;
bool bAlreadyExists;
do {
x = rand() % nGridWidth;
y = rand() % nGridHeight;
} while (HasObstacle(x, y));
SetObstacle(x, y, true);
}
我可以直接将其转换为F#，没有任何问题。
let R = new System.Random(
浏览 3提问于2011-03-23得票数 7
回答已采纳
如何在F#中编写从列表构建树的函数？
type Tree =
| Node of (Tree * Tree)
| leaf of int
如果一个人从左到右读树的标签，那么它们的顺序应该与原始列表相同。
浏览 0提问于2013-10-05得票数 0
2回答
最近，我发现了一个关于的演示文稿，在看完它之后，我决定自己实现“蚂蚁难题”的解决方案。
有一只蚂蚁可以在平面网格上行走。蚂蚁可以一次左、右、上、下移动一个空间。也就是说，蚂蚁可以从单元格(x，y)转到单元格(x+1，y)，(x-1，y)，(x，y+1)和(x，y-1)。对于x和y坐标的数字之和大于25的点，蚂蚁是无法访问的。例如，点(59,79)无法访问，因为5+9+7+9= 30，大于25。问题是:如果蚂蚁从(1000,1000)开始，包括(1000,1000)本身，它可以访问多少点？
我在30行中实现了我的解决方案，并试用了它：
$ ocamlopt -unsafe -rectypes -
浏览 0提问于2011-09-24得票数 65
回答已采纳
1回答
我用谷歌搜索了很长时间，仍然找不到答案。据我所知，如果调用者已经将调用包装在try/catch和/或try/finally块中，那么在.NET 4.5上运行的F# 3.0将不会对递归方法使用尾递归。如果在堆栈的上几层存在try/catch或try/a，会出现什么情况？
浏览 0提问于2012-11-21得票数 8
回答已采纳
3回答
我在下面的F#定义中看到了一个连续传递风格的斐波纳契函数，我一直认为它是尾递归的：
let fib k =
let rec fib' k cont =
match k with
| 0 | 1 -> cont 1
| k -> fib' (k-1) (fun a -> fib' (k-2) (fun b -> cont (a+b)))
fib' k id
在Scala中尝试等效代码时，我使用了现有的@ tail are，当Scala编译器通知我递归调用不处于尾位置时，我感到措手不及：
def fib(k
浏览 5提问于2015-06-23得票数 3
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
实时音视频
云直播活动推荐
腾讯云开发者
