个人中心
文章发布
退出
作者热门文章
- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时，我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
25
4
我正在尝试编写一个(高阶函数)，它接受一个向量和一个函数，并根据该函数进行二进制搜索，即如果它返回 -1，我们需要降低，对于 1 - 更高，对于 0，我们找到了正确的位置。我想到了这样的事情，但似乎我在将函数作为参数传递时做错了:
(defun bin-search (ls fpred)
(let ((l (length ls))
(x (aref ls (floor (length ls) 2))))
(labels (binsearch (ls fpred l m)
(case (funcall #'fpred (aref ls m))
(-1 (binsearch (ls fpred l (floor (- m l) 2))))
(0 (return-from binsearch m))
(1 (binsearch (ls fpred m (+ m (floor (- m l) 2)))))))
(binsearch ls fpred 0 l))))
编译器说变量 FPRED 已定义但从未使用过。怎么了？
最佳答案
(defun bin-search (ls fpred)
请使用有意义的名称，您有很多短名称或缩写，难以阅读。例如，ls让我想到一个列表，可以简单地命名为 list , 但显然你正在使用矢量，所以也许 vec或 vector ？
(let ((l (length ls))
(x (aref ls (floor (length ls) 2))))
如果要重用长度l在同一个 let 中定义，你可以使用 let*相反，写 l而不是第二次出现 (length ls) .
(labels (binsearch (ls fpred l m)
标签的语法是绑定(bind)的列表 (name (<args>) <body>) ，因此您需要添加另一对括号，例如 (labels ((binsearch (<args>) <body>)) ...
此外，您不需要传递 fpred作为参数，它不会因一次调用而改变 binsearch给另一个。可以引用bin-search的 fpred来自本地函数内部的参数。
(case (funcall #'fpred (aref ls m))
当你写 #'fpred ，相当于 (function fpred) ，您正在寻找fpred在函数命名空间中。此处您要访问与名为 fpred 的变量 关联的函数, 所以你可以删除 #'部分。
(-1 (binsearch (ls fpred l (floor (- m l) 2))))
当你写 (binsearch (ls fpred ...)) ，这意味着:调用 binsearch有一个值，通过调用函数 ls 获得带参数 fpred , ...。括号很重要，您需要在此处将其删除。
(0 (return-from binsearch m))
(1 (binsearch (ls fpred m (+ m (floor (- m l) 2)))))))
(binsearch ls fpred 0 l))))
关于lisp - 具有更高级别功能的 lisp 中的二进制搜索，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/52743064/
25
4
0
我正在尝试将谷歌地图集成到 Xamarin Android。但是，如标题中所写，收到错误。此错误出现在我的 SetContentView (Resource.Layout.Main); 上，如下所示:
在 Delphi 中如何以非文本模式打开二进制文件？类似于 C 函数 fopen(filename,"rb") 最佳答案 有几个选项。 1。使用文件流 var Stream: TFileStrea
我现在正在处理一个问题，如下所示: 有两个数字 x1 和 x2 并且 x2 > x1。 例如 x1 = 5; x2 = 10; 而且我必须在二进制表示中找到 x1 和 x2 之间的总和。 5 = 10
我有这个“程序集”文件(仅包含 directives ) // declare protected region as somewhere within the stack .equiv prot_s
有没有办法在powershell中确定指定的文件是否包含指定的字节数组(在任何位置)？ 就像是: fgrep --binary-files=binary "$data" "$filepath" 当然，
我是一名工程师，而不是软件程序员，所以请原谅我的无知。 我编写了一个 Delphi(7SE) 程序，用于从连接到两个数字温度计的 USB 端口读取“真实”数据类型。 我已经完成了该计划的大部分内容。
我有一些代码，例如: u=(float *)calloc(n, sizeof(float)); for(i=1; i
typedef struct pixel_type { unsigned char r; unsigned char g; unsigned char b;
如何判断二进制数是否为负数？ 目前我有下面的代码。它可以很好地转换为二进制文件。转换为十进制时，我需要知道最左边的位是否为 1 以判断它是否为负数，但我似乎无法弄清楚该怎么做。 此外，我如何才能让它返
我有一个带有适当重载的 Vect*float 运算符的 vector 类，我正在尝试创建全局/非成员 float*Vect 运算符，如下所示:(注意这是一个经过大量编辑的示例) class Vect
对于使用 C 编程的项目，我们正在尝试将图像转换为二进制数据，反之亦然。我们在网上找到的所有其他解决方案都是用 C++ 或 Java 编写的。这是我们尝试过的方法: 将图像转换为包含二进制数据的文本文
我需要对列表的元素求和，其中包含所有零或一，如果列表中有 1，则结果为 1，否则为 0。 def binary_search(l, low=0,high=-1): if not l: retu
我到处搜索以找到将 float 转换为八进制或二进制的方法。我知道 float.hex 和 float.fromhex。是否有模块可以对八进制/二进制值执行相同的工作？ 例如:我有一个 float 1
当我阅读有关 list.h 文件中的 hlist 的 FreeBSD 源代码时，我对这个宏感到困惑: #define hlist_for_each_entry_safe(tp, p, n, head,
我不知道出了什么问题，也不知道为什么会出现此错误。我四处搜索，但我终究无法弄明白。 void print_arb_base(unsigned int n, unsigned int b) {
在任何语言中都可以轻松地将十进制转换为二进制，反之亦然，但我需要一个稍微复杂一点的函数。 给定一个十进制数和一个二进制位，我需要知道二进制位是开还是关(真或假)。 示例: IsBitTrue(30,1
在下面的代码中，我创建了两个文件，一个是文本格式，另一个是二进制格式。文件的图标显示相同。但是这两个文件的特征完全相同，包括大小、字符集(==二进制)和流(八位字节)。为什么没有文本文件？因为如果我明
我想通读一个二进制文件。谷歌搜索“python binary eof”引导我here . 现在，问题: 为什么容器(SO 答案中的 x)不包含单个(当前)字节而是包含一大堆字节？我做错了什么？ 如果应
为什么只允许以 10 为基数使用小数点？为什么以下会引发语法错误？ 0b1011101.1101 我输入的数字是否有歧义？除了 93.8125 之外，字符串似乎没有其他可能的数字 同样的问题也适用于其
boost 库中有二进制之类的东西吗？例如我想写: binary a; 我很惭愧地承认我曾尝试找到它(Google、Boost)但没有结果。他们提到了一些关于 binary_int<> 的内容，但我既
我是一名优秀的程序员,十分优秀！