Scheme 快速排序
来源:互联网 发布:java 短链接生成 编辑:程序博客网 时间:2024/05/17 21:46
#!r6rs
( import ( rnrs base ( 6 ) ) )
( define ( filter pred items )
( cond [ ( null? items ) '() ]
[ ( pred ( car items ) )
( cons ( car items )
( filter pred ( cdr items ) ) ) ]
[ else ( filter pred ( cdr items ) ) ] ) )
( define ( quicksort items )
( cond [ ( null? items ) '() ]
[ else ( let* ( [ cut ( car items ) ]
[ rest ( cdr items ) ]
[ left ( filter ( lambda ( elem )
( < elem cut ) ) rest ) ]
[ right ( filter ( lambda ( elem )
( >= elem cut ) ) rest ) ] )
( append ( quicksort left )
( list cut )
( quicksort right ) ) ) ] ) )
( define LL '( 1 3 44 2 6 7 88 9 10 -1 ) )
( quicksort LL ) => {-1 1 2 3 6 7 9 10 44 88}
- Scheme 快速排序
- 分治法(Scheme) -- 快速排序
- 堆排序(Scheme)
- 快速求斐波那契数(scheme实现)
- scheme
- Scheme
- Scheme
- Scheme
- Scheme
- Scheme
- 用Scheme来写冒泡排序
- 快速排序
- 快速排序
- 快速排序
- 快速排序!
- 快速排序
- 快速排序
- 快速排序
- HDU1196 Lowest Bit
- nrf51822蓝牙芯片ble_app_proximity程序总结
- 中国体育“薪”酸事
- MyBatis配置多数据库
- win7下安装JDK并且配置环境变量
- Scheme 快速排序
- ReviewBoad安装指南
- 汇编语言中各寄存器的作用
- kettle 4.1 源码分析
- OpenCV 1 图像分割--分水岭算法代码
- 2014-08-02 0点15分
- ListView item 复用
- CSS实现倒影-------Day80
- getContentSize函数的意思,在地图里面用的很多