Scheme N皇后

(define (range n)(define (recur n)(if (= n -1)'()(cons n (recur (- n 1)))))(recur (- n 1)))(define (flatten a)(if (null? a)'()
        (append (car a) (flatten (cdr a)))))(define (safe? x y sln)(if (null? sln)#t(let ((px (car (car sln))) (py (cadr (car sln))))(if (or (= y py) (= (- py y) (- px x)) (= (- py y) (- x px)))#f (safe? x y (cdr sln))))))(define (nqueen n)(define (recur x)(if (= x -1)(list '())(flatten (map (lambda (y) (map (lambda (sln) (cons (list x y) sln)) (filter (lambda (sln) (safe? x y sln)) (recur (- x 1))))) (range n)))))(recur (- n 1)))(define (pl a)(if (null? a)'()(begin (display (car a)) (display "\n") (pl (cdr a)))))(pl (nqueen 4))

 流 版本:

#lang racket
(require racket/stream)(define-syntax-rule (scons a b) (stream-cons a b))
(define-syntax-rule (scar a) (stream-first a))
(define-syntax-rule (scdr a) (stream-rest a))
(define-syntax-rule (smap f s) (stream-map f s))
(define-syntax-rule (sfilter f s) (stream-filter f s))
(define-syntax-rule (sreduce f i s) (stream-fold f i s))
(define-syntax-rule (snull? s) (stream-empty? s))
(define-syntax-rule (sappend s ...) (stream-append s ...))
(define-syntax-rule (sfor f s) (stream-for-each f s))(define (sflatten a)(if (snull? a)empty-stream(sappend (scar a) (sflatten (scdr a)))))(define (srange n)(let recur ((x 0))(if (= x n)empty-stream(scons x (recur (+ x 1))))))(define (dis x)(begin (display x)(newline)))(define (sd s)(sfor dis s))(define (safe? x y sln)(if (snull? sln)#t(let ((px (scar (scar sln))) (py (scar (scdr (scar sln)))))(if (or (= y py) (= (- py y) (- px x)) (= (- py y) (- x px)))#f (safe? x y (scdr sln))))))(define (nqueen n)(define (recur x)(if (= x -1)(stream empty-stream)(sflatten (smap (lambda (y) (smap (lambda (sln) (scons (stream x y) sln)) (sfilter (lambda (sln) (safe? x y sln)) (recur (- x 1))))) (srange n)))))(recur (- n 1)))(define ass (sflatten (stream (srange 4) (srange 5))))
;(define ass  (stream (srange 4) (srange 5)))
(sfor (lambda (x) (sfor (lambda (y) (sfor display y)(display ",")) x)(newline)) (nqueen 8))

 

转载于:https://www.cnblogs.com/xiangnan/p/3907175.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/264493.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

python全栈开发学习_day1_计算机五大组成部分及操作系统

一.计算机五大组成部分: 1)五大组成: 1.控制器(指挥系统,用于控制其他计算机硬件的工作) 2.运算器(用于数学运算及逻辑运算) 3.存储器(寄存器,高速缓存&#…

Asp.net如何截屏

在C#案例开发这本书中提到了一个方法 using System; using System.Drawing; using System.Collections; using System.ComponentModel; using System.Windows.Forms; using System.Data; using System.Drawing.Imaging; namespace zhua2 { /// <summary> /// Form1 的摘要…

php bloginfo stylesheeturl,WordPress主题制作–bloginfo函数使用教程

最近在做一款WordPress的主题&#xff0c;由于对PHP知之甚少&#xff0c;所以在制作过程中&#xff0c;还是费了很大劲儿的&#xff0c;现在就把在制作过程中遇到的一些问题逐一分享出来。开篇第一讲&#xff0c;我要分享的是bloginfo函数。这个函数主要是获取站点的相关信息&a…

201671030130+词频统计软件项目报告

&#xff08;一&#xff09;需求分析 根据实验二 软件工程个人项目的要求该软件项目的基本功能要求如下&#xff1a; 1.程序可读入任意英文文本文件&#xff0c;该文件中英文词数大于等于1个。 2.程序需要很壮健&#xff0c;能读取容纳英文原版《哈利波特》10万词以上的文章。 …

php系统维护,软件系统维护主要包含什么

软件系统维护主要包含软件系统正常使用要求与定期维护、软件系统初始化安装的维护准备。软件是用户与硬件之间的接口界面&#xff0c;用户主要是通过软件与计算机进行交流。本文操作环境&#xff1a;windows系统、thinkpad t480电脑。(学习视频分享&#xff1a;编程视频)计算机…

一个C#写的调用外部进程类

2008-05-21 07:00 作者&#xff1a; 肖波 出处&#xff1a; 天极网 C# 调用外部进程的类&#xff0c;网上可以搜出很多来&#xff0c;为什么要再写一遍&#xff0c;实在是因为最近从网上拷贝了一个简单的例程用到项目中&#xff0c;运行有问题&#xff0c;后来研究了半天&#…

lamp平台

LANMP平台LAMP指的Linux&#xff08;操作系统&#xff09;、ApacheHTTP 服务器&#xff0c;MySQL&#xff08;有时也指MariaDB&#xff0c;数据库软件&#xff09; 和PHP&#xff08;有时也是指Perl或Python&#xff09; 的第一个字母&#xff0c;一般用来建立web 服务器。lamp…

在预览fastreport报表之前改变一些报表对象的属性

在预览fastreport报表之前改变一些报表对象的属性 有时候许多报表很可能大同小异&#xff0c;只是有个别地方显示的不同&#xff0c;如报表标题&#xff0c;一些控件标题等等。这样我们只需要设计一次报表&#xff0c;在许多地方调用同一份报表&#xff0c;这时候&#xff0c;我…

centos7 配置静态ip时出现双ip问题解决

1、先用ifconfig&#xff0c;看看有几个网卡 2、执行vi /etc/sysconfig/network-scripts/ifcfg-eth0最后的网卡名字改为实际的 3、静态ip只需要设置着几个地方&#xff0c;BOOTPROTOstatic,特别要注意检查是否有NM_CONTROLLEDno&#xff0c;我就是加了这句重启了就没有两个ip了…

晴天php下载,x.php · 一步晴天/smart - Gitee.com

//get拦截规则$getfilter "\\<.>|<.>|\\b(alert\\(|confirm\\(|expression\\(|prompt\\(|benchmark\s*?\(.*\)|sleep\s*?\(.*\)|\\b(group_)?concat[\\s\\/\\*]*?\\([^\\)]?\\)|\bcase[\s\/\*]*?when[\s\/\*]*?\([^\)]?\)|load_file\s*?\\()|]*?\\…

【编程题目】复杂链表的复制☆

76.复杂链表的复制&#xff08;链表、算法&#xff09;题目&#xff1a;有一个复杂链表&#xff0c;其结点除了有一个 m_pNext 指针指向下一个结点外&#xff0c;还有一个 m_pSibling 指向链表中的任一结点或者 NULL。其结点的 C定义如下&#xff1a;struct ComplexNode{ int m…

我的asp.net学习心得

首先说明&#xff0c;本人仅是初学者&#xff0c;不足之处请见谅。 最开始接触.net时大约是四年前&#xff08;四年前,.net应该有了吧&#xff09;。当时是个老师推荐我学习asp.net的&#xff0c;可事实上当时我对asp.net&#xff0c;甚至制作网页都没有太多概念。 然后大约是两…

angularJS 路由加载js controller 未定义 解决方案

说明    本文主要说明&#xff0c;在angularJS框架使用中&#xff0c;angularJS 路由加载js controller 未定义 解决方案。    路由 $routeProvider 异步加载js    路由的基本用法&#xff0c;请查看官方文档&#xff0c;下面实例只说明&#xff0c;懒加载用法。 …

求解哈夫曼编码Java实现,用Java实现哈夫曼编码解决方法

当前位置:我的异常网 J2SE 用Java实现哈夫曼编码解决方法用Java实现哈夫曼编码解决方法www.myexceptions.net 网友分享于&#xff1a;2013-01-08 浏览&#xff1a;13次用Java实现哈夫曼编码我有一个程序 但是运行结果不对 而且 也没有界面设计请各位高手帮忙修改下 用JAVA实…

mysql大数据优化要注意的细节

值得学习的东西&#xff0c;转载~1、对查询进行优化、应尽量避免全表扫描、首先应考虑在 where 及 order by 涉及的列上建立索引。2、应尽量避免在 where 子句中对字段进行 null 值判断、否则将导致引擎放弃使用索引而进行全表扫描、如&#xff1a;select id from t where num …

mssql sqlserver 不固定行转列数据(动态列)

mssql sqlserver 不固定行转列数据(动态列) 原文:mssql sqlserver 不固定行转列数据(动态列)转自:http://www.maomao365.com/?p5471摘要: 下文主要讲述动态行列转换语句&#xff0c;列名会根据行数据的不同&#xff0c; 动态的发生变化 -------------------------------------…

Linux自动备份脚本

今天网上一个朋友问了我一个shell的题目&#xff0c;让我帮他做下。下面是题目以及解题思路。题目&#xff1a;写作一个备份/etc目录的脚本&#xff0c;要求&#xff1a;将/etc目录下的所有文件cp到/var/backups目录下的以当天的日期命名的目录中例如&#xff08;/var/backups/…

wopi php,Office Online Server WOPI 接口

class WopiCheckFileInfo{//Boolean类型 指示wopi客户端可以连接到外部的微软服务提供额外的功能。如果该值为false&#xff0c;则wopi客户决不允许这样的连接public $AllowAdditionalMicrosoftServices false;//Boolean 类型&#xff0c;表示WOPI客户端允许连接文件中对于外部…

WebBrowser控件禁用超链接转向、脚本错误提示、默认右键菜单和快捷键

转载于:https://www.cnblogs.com/sjcatsoft/archive/2008/11/19/1336425.html

centos 6.x 64位 运行32位程序

缘由&#xff1a;使用luajit的程序编译为32位&#xff0c;在64位系统上执行安装如下&#xff1a;基础依赖 yum install glibc.i686可能的libstdc依赖 yum install libstdc.i686 若报版本不一致&#xff0c;请依次执行 yum install libstdc yum install …