回文.txt

Prolog开发的简单的几个人工智能方面的程序.含问题分析报告.

全屏阅读 【版面名称】：Prolog【版主】：徵求中【讨论区】：电脑技术第1页/共1页(总计1笔) 


      打包

      发信人:   wave(驰浪)
      题  目:   附：回文（palin）定义
      发信站: 【蜘蛛网虚拟社区】  (发表於 2001-05-16 16:24:55)
        

      呵呵，问过几个人，都说只要来回读一样就行
      如：a, aba, abcba,.....

      palin([]).        % 定义空表也是回文
      palin([X]).       % 单个元素为回文

      显然，若表[X|H] 为回文，H去掉最后的X也是回文，
      如：  abcba是回文，bcb也是回文，于是

      palin([X|H]):-
         T是H去掉最后的X得到的表, % 可以用append实现
         palin(T).
        
      -------------- 
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
      ~~ ~一切都将归于滚滚的波涛~~ ~
      ~ ~~一切都将投向海洋的怀抱 ~~~
      ~~~ 就像那川流不止的岁月 ~~ ~~
      ~~ ~翻涌的海洋永远奔腾咆哮~~~~
      ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
      ※来源: 【蜘蛛网虚拟社区】.    


      【版面名称】：Prolog【版主】：徵求中【讨论区】：电脑技术第1页/共1页(总计1笔) 

  



◎ 蜘蛛网虚拟社区 ◎ club.MagicPower.com  Magic Power Software Studio.©版权所有 
Programming by MagicPower Software Studio.2000
管理员 mudu