Lisp程序

sw987 · 发表于 2022-7-6 17:11:50

我是这个论坛的新手。。n lisp新手；-）
有人能帮我纠正这个习惯吗？

（定义C:ntm（）
（setq strName（getstring“\n write something:”））
（setq keepgoing 1）
（虽然(
（setq char1（substr strName 1 keepgoing））
（setq char1（strcase char1））
（setq strname2（strcat char1（substr strName（+keepgoing 1）））
（setq keepgoing（+keepgoing 1））
（princ（strcat“\n”strname2））
)
（princ“\n程序已完成”）
（普林斯）
)

wizman · 发表于 2022-7-6 17:45:43

您错过了一个括号：

（定义C:ntm（）
（setq strName（getstring“\n write something:”））
（setq keepgoing 1）
（虽然(
（setq char1（substr strName 1 keepgoing））
（setq char1（strcase char1））
（setq strname2（strcat char1（substr strName（+keepgoing 1）））
（setq keepgoing（+keepgoing 1））
（princ（strcat“\n”strname2））
)
（princ“\n程序已完成”）
（普林斯）
)

vinod · 发表于 2022-7-6 18:21:55

现在它工作了。非常感谢你

[编程交流] Lisp程序

发表回复

精选推荐