我需要一个额外的LISP更少

Bluebird1973 · 发表于 2022-7-5 15:54:35

大家好，

我正在寻找一个“跳转标记”或“转到函数”，但没有一个。
我需要简化我的代码，因为我不想编写程序，例如（程序1）、（程序2），。。。每个（progn）下两次，因为有相同的。

亲切的问候
蓝鸟1973

David Bethel · 发表于 2022-7-5 16:05:37

有很多不同的方法来实现这一点


 [b][color=BLACK]([/color][/b]while [b][color=FUCHSIA]([/color][/b]/= 0 checkPINstate[b][color=FUCHSIA])[/color][/b]
        [b][color=FUCHSIA]([/color][/b]requestPIN[b][color=FUCHSIA])[/color][/b]
        [b][color=FUCHSIA]([/color][/b]checkPINstate[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]program1[b][color=BLACK])[/color][/b]
 [b][color=BLACK]([/color][/b]program2[b][color=BLACK])[/color][/b]

这将强制执行正确的PIN，只留下esc作为备用出口（可能不是最优雅或最佳的解决方案）

-大卫

ronjonp · 发表于 2022-7-5 16:10:29

我的2c。。。

copy

(cond ((and (/= 0 checkpinstate) (requestpin) (= checkpin inputpin)) (program 1) (program 2))
     ((program 1) (program 2))
)

Bluebird1973 · 发表于 2022-7-5 16:17:29

嗨，大卫，
嗨，ronjonp，

谢谢你的尝试，但没有成功。

亲切的问候
蓝鸟1973

ronjonp · 发表于 2022-7-5 16:24:17

在上面的例子中，（program1）和（program2）将始终运行，所以不确定您将使用它去哪里？

也许：

copy

(cond ;; Pin already validated .. run programs
     ((= 0 checkpinstate) (program 1) (program 2))
     ;; Pin not validated, get the pin, if pin checks out then run programs
     ((and (requestpin) (= checkpin inputpin)) (program 1) (program 2))
)

Grrr · 发表于 2022-7-5 16:25:27

如果（requestpin）asigns一个全局变量“checkpinstate”，那么函数本身返回nil。

另一个2c。。

copy


(if (member checkpinstate '(nil 0)) (requestpin))
(cond ( (and checkpinstate (/= 0 checkpinstate)) (program1) (program2) ))

当请求提示时，复制粘贴方法并不总是适用于示例。

ronjonp · 发表于 2022-7-5 16:33:10

也许：

copy

(cond
 ;; Pin already validated .. run programs
 ((= "0" (getenv "checkpinstate")) (program 1) (program 2))
 ;; Pin not validated, get the pin, if pin checks out set the 'checkpinstate' variable then run programs
 ((and (requestpin) (= checkpin inputpin)) (setenv "checkpinstate" "0") (program 1) (program 2))
)

当其中的1/2需要读心术时，很难找到解决方案。

Bluebird1973 · 发表于 2022-7-5 16:42:03

我现在找到了一个解决方案。

copy


[color=RED]([/color][color=BLUE]progn[/color]
  [color=RED]([/color][color=BLUE]cond[/color]
     [color=RED]([/color]
        [color=RED]([/color][color=BLUE]/=[/color] [color=#009900]0[/color] checkPINstate[color=RED])[/color]
           [color=RED]([/color][color=BLUE]progn[/color]
              [color=RED]([/color]requestPIN[color=RED])[/color]
              [color=RED]([/color][color=BLUE]cond[/color]
               [color=RED]([/color]
                 [color=RED]([/color][color=BLUE]/=[/color] checkPIN inputPIN[color=RED])[/color]
                    [color=RED]([/color][color=BLUE]progn[/color]
                     [color=RED]([/color][color=BLUE]princ[/color] [color=#a52a2a]"\nError: bad argument pw"[/color][color=RED])[/color]
                     [color=RED]([/color][color=BLUE]exit[/color][color=RED])[/color]
                     [color=RED])[/color]
               [color=RED])[/color]
              [color=RED])[/color]
           [color=RED])[/color]
     [color=RED])[/color]
  [color=RED])[/color]
  [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]=[/color] [color=BLUE]Prog[/color] checkProg[color=RED])[/color]
     [color=RED]([/color][color=BLUE]progn[/color]
        [color=RED]([/color][color=BLUE]cond[/color]
           [color=RED](([/color]program [color=#009900]1[/color][color=RED]))[/color]
           [color=RED](([/color]program [color=#009900]2[/color][color=RED]))[/color]
           [color=RED](([/color]program [color=#009900]3[/color][color=RED]))[/color]
           [color=DARKRED].[/color][color=DARKRED].[/color][color=DARKRED].[/color]

亲切的问候
蓝鸟1973

ronjonp · 发表于 2022-7-5 16:47:16

不管好坏这将在没有混乱出口的情况下完成同样的事情。

copy

;; Assumes that your (requestpin) actually returns something
(if (or (= 0 checkpinstate) (and (requestpin) (/= checkpin inputpin) (= prog checkprog)))
 (progn (program 1) (program 2) (program 3))
 (princ "\nError: bad argument pw")
)

Bluebird1973 · 发表于 2022-7-5 16:53:10

嗨，ronjonp，

是的，你说得对。
这确实是更好的方法。

谢谢你的课！！！

亲切的问候
蓝鸟1973

[编程交流] 我需要一个额外的LISP更少

发表回复

精选推荐