scheme set-car! 模拟
来源:互联网 发布:高压柜模型实时数据 编辑:程序博客网 时间:2024/06/14 05:09
#lang scheme
( define li '( 1 2 3 4 ) )
( define-syntax set-car!
( syntax-rules ()
( ( set-car! li elem )
( set! li ( cons elem ( cdr li ) ) ) ) ) )
( set-car! li '( a b ) )
或者
#lang scheme
( define ( s-cons x y )
( define ( set-x! v )
( set! x v ) )
( define ( set-y! v )
( set! y v ) )
( define ( dispatch m )
( cond [ ( eq? m 'car ) x ]
[ ( eq? m 'cdr ) y ]
[ ( eq? m 'set-car! ) set-x! ]
[ ( eq? m 'set-cdr! ) set-y! ]
[ else ( error "Undefined operation" m ) ] ) )
dispatch )
( define ( s-car z )
( z 'car ) )
( define ( s-cdr z )
( z 'cdr ) )
( define ( s-set-car! z val )
( ( z 'set-car! ) val )
z )
( define ( s-set-cdr! z val )
( ( z 'set-cdr! ) val )
z )
( define z ( s-cons 1 2 ) )
( s-car ( s-set-car! z 111 ) )
或者:
(require rnrs/base-6)
(require rnrs/mutable-pairs-6)
- scheme set-car! 模拟
- HDOJ 5935 Car【模拟】
- HDU 5935 Car (模拟)
- hdoj 5935 Car (模拟, 精度)
- Scheme 4 Javaer-4.Pair、car和cdr
- 【玲珑杯 1052】【暴力+set】See car
- UVa 10114 Loansome Car Buyer (模拟)
- HDU 5935 Car(模拟+精度)
- HDU 5935 Car(思维,模拟,精度)
- Car
- Car
- Car
- 玲珑杯”ACM比赛 Round #4 G -- See car【Set】
- scheme
- Scheme
- Scheme
- Scheme
- Scheme
- 版本化RESTful Web服务
- REST 概述
- URI设计
- 最长字符串链接
- 程序员生存手册的书摘
- scheme set-car! 模拟
- 选择资源粒度
- 网络编程学习笔记(RES_USE_INET6解析器选项)
- 从领域名词中识别资源
- Matlab矩阵处理小结(4)-批量将矩阵保存到不同的文件--动态更新文件名
- 数字电路设计之Wallace树形乘法器
- 应用状态VS资源状态
- 数论基础之辗转相除法求最大公约数
- HTTP的可见性