小编Tim*_*rce的帖子

我最近一直在寻找早期AI项目Parry的源代码.这很棘手,因为大部分代码都是用MLISP编写的,没有任何工作实现(我知道).相反,我一直在使用语言规范(MLISP用户手册和早期的MLISP技术报告).

我无法解释的一个好奇心是IF-THEN-ELSE-ALSO构造,例如:

IF !LAMBDANAME(B) THEN ERROR("NONLAMBDA INTO REACT2",B) ALSO RETURN NIL;

我能找到的文档没有提到声明的ALSO条款IF,我正在摸不着头脑,了解它的用途.

我看到的一个似是而非的建议是它使用了该finally子句用于Java中的异常处理的方式,即无论如何IF终止运行清理代码.另一方面,这并不能解释似乎永远不会引发异常的陈述,例如:

IF REACTTO='QUIT THEN REACTTO:=NIL ALSO TRACE_MEM:='NOSPECIALANAPH;

有任何想法吗？

我是C的新手,我急切地想知道这段代码的工作原理是什么？

int i;main(){for(;i["]<i;++i){--i;}"];read('-'-'-',i+++"hell\
o, world!\n",'/'/'/'));}read(j,i,p){write(j/p+p,i---j,i/i);}

来源可以在这里找到:http://www.ioccc.org/1984/anonymous.c

以下是代码附带的提示:

不光彩的提及:匿名

作者太尴尬了他/她可以写这样的垃圾,所以我答应保护他们的身份.我要说的是,这个程序的作者与C编程语言有着众所周知的联系.该计划是古老的"Hello,world"计划的独特变体.阅读的内容可能就像写一样!版权所有(c)1984,Landon Curt Noll.版权所有.允许个人,教育或非营利性使用,前提是此版权和通知全部包含在内并保持不变.所有其他用途必须事先得到Landon Curt Noll和Larry Bassel的书面许可.

对于锻炼和好奇心,任何人都知道以下脚本是否可以更紧凑和更快捷:

foreach(@list){
    if ($_=~"givenName: ") {
        $cname=$_;
        $cname=~ s/givenName: //g;
    } 
    if ($_=~"cn: ") {
        $cn=$_;
        $cn=~ s/cn: //g;
    }
    ...
}

做什么: - 它在行内查找一个字符串,看它是否包含该特定索引 - 然后剥离字符串并读取将内容放入变量的行的其余部分. - 此脚本逐行读取另一个脚本的结果,并标识每行的字段,将值放入适当的变量中

所以我在这里四处寻找,我找到了工作回文的代码

def isPalindrome():
    string = input('Enter a string: ')
    string1 = string[::-1]
    if string[0] == string[(len(string)-1)] and string[1:(len(string)-2)] == string1[1:(len(string)-2)]:
        print('It is a palindrome')
    else:
        print('It is not a palindrome')

isPalindrome()

所以我已经将输入更改为raw_input.它有效.

但在评论中有一个更简单的代码:

def isPalindrome():
    string1 = input('Enter a string: ')
    string2 = string[::-1]
    if string1 == string2:
        return 'It is a palindrome'
    return 'It is not a palindrome'

isPalindrome()

我收到了回读:

Traceback (most recent call last):
  File "C:\Python27\idk1.py", line 8, in <module>
    isPalindrome()
  File "C:\Python27\idk1.py", line 2, in isPalindrome
    string1 …