lisp

P22 (*) Create a list containing all integers within a given range.

问题描述 sash> (range 4 9)-> (4 5 6 7 8 9) 解法 (define range(lambda (b e)(if (> b e)()(cons b (range ( b 1) e)))))

P24 (*) Lotto: Draw N different random numbers from the set 1..M.

问题描述 The selected items shall be returned in a list. sash> (lotto-select 6 49)-> (23 1 17 33 21 37) Hint: Combine the solutions of problems P22 and P23. 解法 (define lotto-select(lambda (N M)(rnd-select (range 1 M) N)))

P25 (*) Generate a random permutation of the elements of a list.

问题描述 sash> (rnd-permu (a b c d e f))-> (b a d c e f) Hint: Use the solution of problem P23. 解法 (define rnd-permu(lambda (ls)(rnd-select ls (length ls))))

P06 (*) 判断一个列表是否是回文列表

大维基百科的原话： A palindrome is a word, phrase, number, or other sequence of >characters which reads the same backward or forward. 回文是一个结构，满足回文结构的事物从前或从后遍历元素得到的结果是相同的。具体事物的元素的单位可能是不…

P19 (**) Rotate a list N places to the left.

问题描述 sash> (rotate (a b c d e f g h) 3)-> ((a b c) (d e f g h i k)) sash> (rotate (a b c d e f g h) -2)-> (g h a b c d e f) Hint: Use the predefined functions length and append, as well as the result of problem P17. 解法普通实现按照题…

P29 (**) Compose arbitrarily many procedures of one argument.

问题描述原题目没有P29，这道题来源于水木的一个帖子。题目是这样的： Use the unrestricted lambda to define a composition procedure compose-many that forms the composition of arbitrarily many procedures of one argument.Test your procedur…

P02 (*) 获取列表的倒数第二个元素

Example: sash> (last_but_one (a b c d)) sash> c （1）跟P01类似，只多判断一个条件，即如果列表里只有一个元素，则返回#t。 (define last_but_one(lambda (ls)(if (null? ls)(raise not-found)(let ([lr (cdr…

P08 (**) 消除连续重复的列表元素

若列表内包含重复出现的元素，则应只保留一个副本，且保持原列表元素的顺序。如 sash> (compress (a a a a b c c a a d e e e e)) sash> (a b c a d e) 问题分析使用递归解决问题的好处在于能全局分析问题，从“局部“解决一个全局的…

P26 (**) Generate the combinations of K distinct objects chosen from the N elements of a list.

问题描述 In how many ways can a committee of 3 be chosen from a group of 12 people? We all know that there are C(12,3) 220 possibilities (C(N,K) denotes the well-known binomial coefficients). For pure mathematicians, this result may be great. But we wan…

P27 (**) Group the elements of a set into disjoint subsets.

问题描述 a) In how many ways can a group of 9 people work in 3 disjoint subgroups of 2, 3 and 4 persons? Write a function that generates all the possibilities and returns them in a list. sash> (group3 (aldo beat carla david evi flip gary hugo ida))-&…

P07 (**) 铺开(flatten) 嵌套列表

nestable列表是说它的元素可以是列表，与之相对，把不包含列表作为元素的列表称为flat 列表。嵌套列表跟树结构类似，父节点可以包含多个子节点，每个子节点都可以是树结构，无限纵深。实际上在Scheme中常用nestable列表表示…

Ninety-Nine Scheme Problems--引

很喜欢Lisp这门语言。最初接触是在用gimp时无意了解到的，因为gimp可以使用Script-Fu写脚本，而这门语言基于Scheme，这个时候的了解仅限于大体的语法。随后，接触了Emacs的elisp，也仅仅是简单的文件配置。总体上&#xff…

P09 (**) 把连续重复的列表元素打包为子列表

问题描述如果列表内包含有重复的元素且连续，则应当将它们放入单独的子列表内，如： sash> (pack (a a a a b c c a a d e e e e)) sash> ((a a a a) (b) (c c) (a a) (d) (e e e e)) 解法 (define pack(lambda (ls)(if (null? ls)…

P21 (*) Insert an element at a given position into a list.

问题描述 sash> (insert-at alfa (a b c d) 2)-> (a alfa b c d) 解法 (define insert-at(lambda (e ls n)(let f ([ls ls] [n n])(cond[(null? ls) ()][( n 1) (cons e ls)][else (cons (car ls) (f (cdr ls) (- n 1)))]))))

P20 (*) Remove the K'th element from a list.

问题描述 sash> (remove-at (a b c d) 2)-> (a c d) 解法 (define remove-at(lambda (ls k)(let f ([i 1] [s ls])(cond[(null? s) ()][( i k) (cdr s)][else (cons (car s) (f ( i 1) (cdr s)))]))))

P17 (*) Split a list into two parts; the length of the first part is given.

问题描述 Do not use any predefined predicates(functions). sash> (split (a b c d e f g h i k) 3) sash> ((a b c) (d e f g h i k)) 题目要求“自己动手，丰衣足食“。解法尾递归实现 (define split(lambda (ls n)(let f ([i 1][ls1 ()][ls2 ls])(…

P23 (**) Extract a given number of randomly selected elements from a list.

问题描述 The selected items shall be returned in a list. sash> (rnd-select (a b c d e f g h) 3)-> (e d a) Hint: Use the built-in random number generator and the result of problem P20. 解法 (import (srfi 27))(define rnd-select(lambda (ls n)(let f…

P16 (**) Drop every N'th element from a list.

问题描述 sash> (drop (a b c d e f g h i k) 3) sash> (a b d e g h k) 解法 (define drop(lambda (ls n)(let f ([s ls][i 1])(cond[(null? s) ()][( i n) (f (cdr s) 1)][else (cons (car s) (f (cdr s) ( i 1)))]))))

P13 (**) 列表的游程编码(直接编码)

问题描述实现游程编码。在P11中我们利用到了中间的计算结果–P09生成的连续重复的元素列表，该问题要求不创建这个中间结果，而仅仅利用这些元素的个数。如 sash> (encode-modified (a a a a b c c a a d e e e e)) sash> ((4 a) b (2 c) (2 a) d…

P12 (**) 解码游程编码过的列表

问题描述该题是实现P11的逆操作，即将P11编码过的列表进行解码。如 sash> (decode ((4 a) b (2 c) (2 a) d (4 e))) sash> (a a a a b c c a a d e e e e) 解法递归实现思路：(1) 将(N E)转换为(E ... E)列表形式，单独的E转换为(E…

P30 (*) Transposing a Matrix

问题描述原题目没有P30，这道题来源于Common LISP Recipes。题目要求对矩阵进行矩阵，如 ⎛⎝⎜112131122232132333142434⎞⎠⎟T⎛⎝⎜⎜⎜111213142122232431323334⎞⎠⎟⎟⎟\begin{pmatrix} 11 & 12 & 13 & 14 \\ 21 & 22 & 2…

P32 (**) Determine the greatest common divisor of two positive integer numbers.

问题描述 sash> (gcd 36 63)-> 9 用欧几里得算法解决。解法最大公约数运算在数论上比较常见，标准库有同名的函数。题目要求a和b是正数，下面的实现不能用于负数的情况。因 gcd(a,b)gcd(∣a∣,∣b∣)故只要简单处理一下参数就可以适用于负数…

P15 (**) Replicate the elements of a list a given number of times.

问题描述 sash> (repli (a b c) 3) sash> (a a a b b b c c c) 解法 (define repli(lambda (ls n)(let f ([s ls][m n])(if (null? s)()(if (zero? m) (f (cdr s) n) (let ([e (car s)]) (cons e (f s (- m 1))))))))) 与上一个P14类似，也可将每个元素重…

P28 (**) Sorting a list of lists according to length of sublists.

问题描述 a) We suppose that a list contains elements that are lists themselves. The objective is to sort the elements of this list according to their length. E.g. short lists first, longer lists later, or vice versa. sash> (lsort ((a b c) (d e) (f g h…

P31 (**) Determine whether a given integer number is prime.

问题描述 sash> (prime? 7)-> #t 解法素数是大于1且约数只有1和其本身的整数。实现算法很多，下面是比较简单的一种。 (define prime?(lambda (n)(cond[(< n 2) #f][( n 2) #t][(zero? (floor-remainder n 2)) #f][else(let f ([i 3]) (cond [(>…

亚马逊云科技汽车行业解决方案

当今，随着万物智联、云计算等领域的高速发展，创新智能网联汽车和车路协同技术正在成为车企加速发展的关键途径，推动着汽车产品从出行代步工具向着“超级智能移动终端”快速转变。挑战无处不在，如何抢先预判？ 随着近…

运动跑步耳机哪个牌子好、值得推荐的运动耳机

作为一位热衷于运动的爱好者，对于运动装备的要求十分严格。家里有很多手环和跑鞋，但在跑步时最喜欢的是听歌。一首好曲子能够改善跑步体验，延缓疲劳感。当然，并非所有的耳机都适合运动使用，选择运动耳机时需要考虑到运…

优秀的Lisp编程风格教程：第六章（译文）

(本文为草稿，校对时间待定) 原文链接：https://norvig.com/luv-slides.ps 6. 其他说话算数不要误导读者预料到读者的误解使用适当程度的特异性小心那些声明不正确的声明会破坏代码一一对应坏的声明：只是一个虚构的例子 (defun look…

“轻松管理你的文件库：按大小归类保存，高效整理！“

亲爱的朋友们，你是否曾经为了整理电脑中杂乱无章的文件而感到烦恼？文件大小不一，无法快速找到所需内容，实在让人感到心力交瘁。但现在，我们为你带来一种全新的解决方案，让你的文件管理更轻松，更…

P04(*) 获取列表的长度【重补】

Example: sash> (my_length (a b c d e)) sash> 5 （1）自己造轮子 (define my_length(lambda (ls)(cond[(null? ls) 0][else ( 1 (my_length (cdr ls)))]))) （2）使用length (define my_length length) （3&…

P01 (*) 获取列表最后一个元素【重补】

今天在CSDN上丢了两篇文章，也促使我开始注意博客系统的使用方法。现在发现的问题有： 1. 草稿箱好像只能保存一篇文章，其他文章我怎么都保存不到草稿箱 2. 编辑文章不保存或不发表，文章莫名从文章列表里“丢失“ 不知是产品缺陷…

P18 (**) Extract a slice from a list.

问题描述 Given two indices, I and K, the slice is the list containing the elements between the I’th and K’th element of the original list (both limits included). Start counting the elements with 1. sash> (slice (a b c d e f g h i k) 3 7) sash> (c…

visual lisp/autolisp/dcl 开发-目录

1、visual lisp/autolisp 开发 --快速定位代码出错位置 2、visual lisp/autolisp dcl对话框开发 --用回车键接受输入，结束对话框 3、visual lisp/autolisp dcl对话框开发 --在一个dcl文件中引用另一个dcl 4、visual lisp/autolisp dcl对话框开发 --图像按钮&…

P03 (*) 获取列表的第K个元素

列表第一个元素所在的位置为1。 Example: sash> (element-at (a b c d e) 3) sash> c （1）自己造轮子因为列表的内存分配并不一定是连续的，所以要访问第K个位置的元素，只能从head出发，直到第K个位置&#xf…

喜欢Ruby的几个理由

Racket链表与二叉树

不管是链表还是二叉树都是链式存储结构，用习惯的话说就是需要数据域指针域（如果对cpp等传统语言实现链表有所了解的话） 在lisp中也需要使用结构体来实现它结构体 struct在官方文档的页面：Racket - 5 Structures 可以通过以下…

MyList项目日志：S表达式

文章目录 S表达式Lisp列表解析表达式表达式结构构造函数与析构函数构造函数析构函数读取表达式打印表达式表达式求值 v0.2.1 S表达式 Lisp列表 Lisp的程序代码也是数据形式的一种，这个结构被称之为S表达式，他存在一个Lisp列表中，我们需要用…

autolisp函数大全，CAD的 lisp

autolisp函数大全发表于2014 年 1 月 25 日由boitboy 函数大全一、数学运算功能函数 1．l（十数值数值…）返回：累计实数或整数数值 1．2（一数值数值…）返回：差值 1&#xff…

信息安全与阿里云等保三级方案实践总结

信息安全在当今数字化时代变得至关重要，企业和组织需要采取有效措施来保护其数据和信息资产。阿里云作为中国领先的云服务提供商，提供了等保三级方案，帮助用户满足国家信息安全等级保护的要求。本文将探讨信息安全和阿里云等保三级方案的重要…

Emacs中文教程

1830_emacs lisp的交互式模式

org-mode的标记语法 Grey 全部学习汇总： GitHub - GreyZhang/g_org: my learning trip for org-mode 交互式模式 emacs的交互式模式让我对emacs的生命力有了更进一步的认识，但是我并没有找到什么特别丰富的资料做这方面的学习与分析。尤其是理论与实…

eclispe 下配置maven 而且建立java工程

原文地址为： eclispe 下配置maven 而且建立java工程需要 window下安装 -- eclipse 安装maven的插件一共两个步奏: 一：window 下安装maven ： http://blog.csdn.net/chenxuejiakaren/article/details/7938524 二：eclipse 下安装mav…

9.3.2另一种计算机器2

本书把所构想的语言机器作为语言媒介系统工具的最新发展，语言机器也可以放在计算机器的历史中来进行分析与比较。图灵在构想图灵机时，是从观察人用笔在纸上进行计算的过程开始的，所构想的图灵机装置就是用来模拟人类计算过程中的行为。图灵机…

【Scheme】Scheme 编程学习 (七) —— Macros 宏

【Scheme】Scheme 编程学习 (七) —— Macros 宏文章目录 I - 问题 (The problem)II - 隐藏复杂度 (Hiding complexity)III - 初次尝试 (First attempt)IV - 解决方案 (A solution)V - 其他的实现方式 (How else could we do this?)5.1 - 宏 (Macros)5.2 - 引用 （…

如何选择编程语言

各种语言的选择： 如果编写对性能要求苛刻，或和操作系统结合紧密的程序，必然选择c。如果编写到处可用的程序，选java。如果编写大程序，可能的化尽量用python，不行了再用java和c。因为python带来了生产…

介绍 JSON

JSON(JavaScript Object Notation) 是一种轻量级的数据交换格式。易于人阅读和编写。同时也易于机器解析和生成。它基于JavaScript Programming Language, Standard ECMA-262 3rd Edition - December 1999的一个子集。 JSON采用完全独立于语言的文本格式，但是也使…

数据即代码:元驱动编程

Coolshell.cn （感谢文艺复兴记（todd） 投递此文） 几个小伙伴在考虑下面这个各个语言都会遇到的问题： 问题：设计一个命令行参数解析API 一个好的命令行参数解析库一般涉及到这几个常见的方面： 1)…

转写给Ruby新人的公开信 (我的Ruby学习经历)

来自 http://ruby-china.org/topics/2003 写给Ruby新人的公开信 (我的Ruby学习经历) 分享一点点自己学习Ruby的经验吧, 主要是给Ruby新人. 新人中普遍存在的错误思想: 社区里很多新人(至少是Ruby语言的新人), 貌似都是为了使用Rails而捎带的学习 Ruby的. 我觉得这样应该是不…

编程语言简史

我们已经远离用电线和穿孔卡编程的时代。也许仍未尽如人意。以下内容都是编程历史上的创新。ca. 1946Konrad Zuse，一位德国工程师，他躲藏在巴伐利亚附近的阿尔卑斯山上时，独立开发Plankalkul。他把该项成果应用在其它的事物中，比如…

函数式编程(FP)

函数式编程是种编程典范，它将电脑运算视为函数的计算。函数编程语言最重要的基础是 λ 演算（lambda calculus）。而且λ演算的函数可以接受函数当作输入（引数）和输出（传出值）。和指令式编程相比…

P11 (*) 游程编码改

问题描述在P10的算法实现中，若一个元素不连续重复，我们最终也转化为(N E)的形式，即N为1的特殊形式。该题的要求是特殊处理这一情况，直接将元素复制到结果列表中。如 sash> (encode-modified (a a a a b c c a a d e e e e)…

黑客文化简史

出处：http://hp.envir.online.sh.cn/vega/hacker.htm作者：Eric S. Raymond 本篇原作者为Eric S. Raymond esrsnark.thyrsus.com，他是一位大哥级的 Hacker，写了很多自由软件，知名著作有Jargon File等，近…

P10 (*) 列表的游程编码

问题描述使用P09的结论来实现所谓的游程编码，这是一种数据压缩的方法。连续重复的元素会编码成(N E)形式的列表，其中N为元素E重复的次数。如 sash> (encode (a a a a b c c a a d e e e e)) sash> ((4 a) (1 b) (2 c) (2 a) (1 d) (4 e)) 解法…

P05 (*) 反向列表中元素

如，反向之前(1 2 3)， 反向之后变为(3 2 1) R7RS的(scheme base)提供了reverse，没有副作用，纯的函数式版本。(srfi 1)提供了mutation版本reverse!，会改变原有列表的结果，有副作用。不管有无副作用&#…

动态编程语言介绍

perl的最大特点是有强大的字符串模式匹配，是最好的文本文件的读取和生成语言。perl具有很大的自由性，象英语一样有很大的随意性，perl有一个强大的数据库接口和其他各种接口。perl有最大量的程序库。perl不适合编写大程序。perl有一个著名的缺…

以地籍库为例介绍AutoCAD数据库连接

以地籍库为例介绍AutoCAD数据库连接李玲（广西第一测绘院）【摘　要】　以地籍库为例，介绍AutoCAD2000的数据库连接功能dbConnect。通过地籍库的建立及维护过程，介绍数据库的连接、图形与数据维护的一致性。【关键词】　AutoCAD 数据…

P33 (*) Determine whether two positive integer numbers are coprime.

问题描述 sash> (coprime 35 64)-> #t 若两个整数最大公因数为1，则互质。解法 (define coprime(lambda (a b)( 1 (gcd a b))))

P14 (*) Duplicate the elements of a list.

鉴于之前的翻译很多别扭的地方，尤其是该题的duplicate和下一题的replicate，不用一长串汉字是描述不清楚的。所有从该题之后，题目统一用英文吧。问题描述 sash> (dupli (a b c c d)) sash> (a a b b c c c c d d) 解法 (define dup…

用Racket语言生成全球唯一标志(GUID)

1 什么是GUID 在百度百科里解释如下： 全局唯一标识符(GUID，Globally Unique Identifier)是一种由算法生成的二进制长度为128位的数字标识符。GUID主要用于在拥有多个节点、多台计算机的网络或系统中。在理想情况下，任何计算机和计算机集群…

——目录2

前言1媒介视角的语言观1.1认知方向的符号使用1.2口语与文字1.3媒介视角的语言观1.4语言媒介的选用1.5符号使用的开始2符号结果与符号方式2.1符号使用的不同场景2.2符号结果与符号方式2.3符号视角下的科学——领域语言2.4领域语言与自然语言的比较3自然语言的探讨3.1动物的语言3…

$极坐标系及其他常用坐标系的表示方法$