- android - 多次调用 OnPrimaryClipChangedListener
- android - 无法更新 RecyclerView 中的 TextView 字段
- android.database.CursorIndexOutOfBoundsException : Index 0 requested, 光标大小为 0
- android - 使用 AppCompat 时,我们是否需要明确指定其 UI 组件(Spinner、EditText)颜色
我必须在 lisp 中将十进制数转换为二进制数。我在网上搜索时遇到了这段代码。
(defun :bits (value &optional (size 64))
(format t "~v,'~B" size value))
所以请解释一下代码的每个属性将做什么。
最佳答案
Mongus Pong's answer很好地描述了您正在查看的代码的实际行为,但我认为也总是值得一提在哪里来找到答案。 Common Lisp HyperSpec是 Common Lisp 文档的最佳来源,但它的某些部分有点难以阅读。有时 format 的指令文档可能有点密集。在这种情况下,您将需要查看几个部分,因为示例中的某些内容不仅仅适用于二进制指令 ~B。
你想从 22.3 Formatted Output 开始,它描述了格式字符串的语法:
A directive consists of a tilde, optional prefix parameters separated by commas, optional colon and at-sign modifiers, and a single character indicating what kind of directive this is. There is no required ordering between the at-sign and colon modifier. The case of the directive character is ignored. Prefix parameters are notated as signed (sign is optional) decimal numbers, or as a single-quote followed by a character. For example, ~5,'0d can be used to print an integer in decimal radix in five columns with leading zeros, or ~5,'*d to get leading asterisks.
所以我们希望看到一个波浪号,然后是(可选的)由冒号分隔的参数,一个(可选的)at 符号 (@),一个(可选的)冒号 (:),以及实际的前缀指令(大小写敏感的)。也就是说
~v,'~B
分解为
~ ; initial tilde
v ; prefix parameter (could also be V)
, ; separator between prefix parameters
'~ ; prefix parameter (character following single quote)
B ; directive (could also be b)
所以我们有两个前缀参数:v和~,指令是B。文档中的下一段描述了 v 作为前缀参数时的作用:
In place of a prefix parameter to a directive, V (or v) can be used. In this case, format takes an argument from args as a parameter to the directive. The argument should be an integer or character. If the arg used by a V parameter is nil, the effect is as if the parameter had been omitted.
现在,要了解 ~B 的一般作用,您需要查看 22.3.2.3 Tilde B: Binary ,尽管它几乎会将您重定向到其他地方:
This is just like ~D but prints in binary radix (radix 2) instead of decimal. The full form is therefore ~mincol,padchar,commachar,comma-intervalB.
该文档描述了可接受的前缀参数(mincol、padchar、commachar 和 comma-interval)。这些是从左到右填写的。示例 ~v,'B 有两个,所以 v 是 mincol 而 ' 是 padchar。但是我们还是要看22.3.2.2 Tilde D: Decimal对于每一个的含义:
~mincolD uses a column width of mincol; spaces are inserted on the left if the number requires fewer than mincol columns for its digits and sign. If the number doesn't fit in mincol columns, additional columns are used as needed.
~mincol,padcharD uses padchar as the pad character instead of space.
… The : modifier causes commas to be printed between groups of digits; commachar may be used to change the character used as the comma. comma-interval must be an integer and defaults to 3. When the : modifier is given to any of these directives, the commachar is printed between groups of comma-interval digits.
所以,mincol,结果的宽度为v,表示将从参数列表中读取,padchar,填充字符,为~>。因此:
CL-USER> (bits 13 10)
~~~~~~1101 ; 10 characters wide, padded with ~
CL-USER> (bits 1022 10)
1111111110 ; 10 characters wide, no need for padding
CL-USER> (bits 1022 11) ; 11 characters with, padded with ~
~1111111110
关于lisp - 关于 LISP 中关于格式函数的语句的解释,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/34408146/
创建一个“海盗对话”,可以选择左手或右手。我希望它对“左”和“右”的不同拼写做出积极的回答(正如您将在代码中看到的那样),但是,当我为所有非“右”或“左”的输入添加最终的“else”代码时,它给了我一
With 语句 对一个对象执行一系列的语句。 With object statements End With 参数 object 必需的部分
While...Wend 语句 当指定的条件为 True 时,执行一系列的语句。 While condition  ; Version [stat
所以我正在处理的代码有一个小问题。 while True: r = input("Line: ") n = r.split() if r == " ":
我有一个对象数组: var contacts = [ { "firstName": "Akira", "lastName": "Laine", "number"
int main() { int f=fun(); ... } int fun() { return 1; return 2; } 在上面的程序中,当从main函数中调用一个
我的项目中有很多 if 语句、嵌套 if 语句和 if-else 语句,我正在考虑将它们更改为 switch 语句。其中一些将具有嵌套的 switch 语句。我知道就编译而言,switch 语句通常更
Rem 语句 包含程序中的解释性注释。 Rem comment 或 ' comment comment 参数是需要包含的注释文本。在 Rem 关键字和 comment 之间应有一个空格。
ReDim 语句 在过程级中声明动态数组变量并分配或重新分配存储空间。 ReDim [Preserve] varname(subscripts) [, varname(subscripts)]
Randomize 语句 初始化随机数生成器。 Randomize [number] number 参数可以是任何有效的数值表达式。 说明 Randomize 使用 number 参数初始
Public 语句 定义公有变量并分配存储空间。在 Class 块中定义私有变量。 Public varname[([subscripts])][, varname[([subscripts])
Sub 语句 声明 Sub 过程的名称、参数以及构成其主体的代码。 [Public [Default]| Private] Sub name [( arglist )]
Set 语句 将对象引用赋给一个variable或property,或者将对象引用与事件关联。 Set objectvar = {objectexpression | New classname
我有这个代码块,有时第一个 if 语句先运行,有时第二个 if 语句先运行。我不确定为什么会这样,因为我认为 javascript 是同步的。 for (let i = 0; i < dataObje
这是一个 javascript 代码,我想把它写成这样:如果此人回答是,则回复“那很酷”,如果此人回答否,则回复“我会让你开心”,如果此人回答的问题包含"is"或“否”,请说“仅键入”是或否,没有任何
这是我的任务,我尝试仅使用简短的 if 语句来完成此任务,我得到的唯一错误是使用“(0.5<=ratio<2 )”,除此之外,构造正确吗? Scanner scn = new Scanner(
有没有办法在 select 语句中使用 if 语句? 我不能在这个中使用 Case 语句。实际上我正在使用 iReport 并且我有一个参数。我想要做的是,如果用户没有输入某个参数,它将选择所有实例。
这个问题在这里已经有了答案: 关闭 11 年前。 Possible Duplicate: If vs. Switch Speed 我将以 C++ 为例,但我要问的问题不是针对特定语言的。我的意思是一
Property Set 语句 在 Class 块中,声明名称、参数和代码,这些构成了将引用设置到对象的 Property 过程的主体。 [Public | Private] Pro
Property Let 语句 在 Class 块中,声明名称、参数和代码等,它们构成了赋值(设置)的 Property 过程的主体。 [Public | Private] Prop
我是一名优秀的程序员,十分优秀!