Table of Contents1. chunk server1.1. chunk server连接meta serever报file system id mismatch2. tools2.1. qfsadmin 怎么用2.1.1. check_leases2.1.2. fsck2.2. qfsstat 怎么用2.2.1. 连接meta server2.2.2. 连接chunk server2.3. qfsfsck 怎么用1 chunk server1.1 chunk server连接meta serever报file system id mismatch这是因为启动meta server的时候用了-c参数，而chunk server所有的chunk目录都需要清空一次，否则就会报不匹配的错误2 tools2.1 qfsadmin 怎么用2.1.1 check_leases[qfs@my-computer tools]$ ./qfsadmin -s metaserver-ip -p20000-v -- check_leases Cseq:1865947047709105122Status:010-14-201601:50:45.088DEBUG - version: master-a79aaf7324e4ee55609c55cca ...继续阅读 (26)

1 chunk server主要功能一个文件分成若干个chunk, 每个chunk最大64MBchunk server根据meta server的指令对chunk进行复制或者恢复监控文件系统的健康情况，并汇报状态给meta server.推荐使用XFS文件系统，可以绕过OS的缓存以提高性能，还可以利用XFS的空间回收机制减少碎片。2 高容错的最小架构采用Reed-Solomon架构，而不是Replication架构，虽然复杂，但是能够大幅度节省存储空间。在chunk不需要出错恢复的情况下，磁盘读写速度能够大幅度提高。由于实验机器数量的限制，这里只讨论最小规模的架构。更大规模的架构以后有实践环境再讨论。2.1 配置参数2.2 磁盘实际使用空间计算公式根据推荐配置，磁盘使用大小应该是文件大小的1.5倍2.3 有效存储空间计算公式根据推荐配置，磁盘实际可存放数据的大小（有效存储大小）为磁盘大小的2/32.4 最小集群规模1台meta server + 9台chunk servers构成的集群，可以确保在最多3台服务器故障时，仍然数据不丢失。不过，可以逐渐增加chunk server。 2.5 理解chunk placement group一个chunk的复制chunk放在哪里，同一台服务器上，还是其它服务器上 ...继续阅读 (54)

下载程序下载centos 6的版本：https://s3.amazonaws.com/quantcast-qfs/qfs-centos-6.7-master-x86_64.tgz然后解压Meta Server负责保存所有chunk的位置，协调chunk的复制和恢复。配置文件需要创建一个配置文件，文件名为meta_server.prp# port used by clients to connect to the metaserver metaServer.clientPort = 20000 # port used by chunk servers to connect to the metaserver metaServer.chunkServerPort = 30000 # chunk placement groups by IP address or first three octets metaServer.rackPrefixes = 10.140.110.112 10.140.110.113 # create new file system if no transaction logs or checkpoints are found metaServer.createEmptyFs = 1 # location to write transaction log ...继续阅读 (39)

clone github的这个项目git clone https://github.com/K0HAX/spacemacs-emms在~/.emacs.d/private/下创建emms layer目录将github上的两个文件package.el和README.org复制过去,修改package.el中的目录，改为自己电脑上的视频，音频文件所在目录。重启emacs，会看到在下载安装emms启动后用emms相关命令打开文件emms-play-file, 可以播放目录下的视频文件。其实用的是电脑上装好的smplayer。Esc键退出播放， 空格键暂停播放， 9和0键是音量大小，方向键是前进和后退，其余参考smplayer快捷键。M-F11（我系统的设置）是全屏。享受吧。 ...继续阅读 (35)

基于前面的几篇博客介绍的技术，现在可以用gnuplot绘制出文氏图。数据文件9.5 9 12 Harass 8 6 12 Scam 5 9 12 ADplot脚本set terminal png truecolor nocrop enhanced size 512,280 font "arial,8" set output "abnormal_category.png" set style fill transparent solid 0.5 noborder set xrange [0:20] set yrange [0:15] plot "< awk '{if($4 == \"Harass\") print}' abnormal.data" u 1:2:(sqrt($3)) t "Harass" with circles, \ "< awk '{if($4 == \"Scam\") print}' abnormal.data" u 1:2:(sqrt($3)) t "Scam" with circles, \ "< awk '{if($4 == \"AD\&quo ...继续阅读 (31)

在直角坐标系里面绘制一个圆准备数据文件csv格式，里面包含了3列，分别是x,y,radiusabnormal.data文件内容如下：10,10,20编写plot脚本文件set terminal png set output "abnormal_category.png" set datafile separator ',' set title "异常号码分类" set style fill transparent solid 0.2 noborder plot 'abnormal.data' using 1:2:(sqrt($3)) with circles说明：一定要设置seperator,否则就会出现x axis range错误，gnuplot不能自己识别逗号是一个莫名其妙的设定。有点讨厌。运行gnuplot ./abnormal.plot Warning: empty y range [10:10], adjusting to [9.9:10.1]输出图片减少圆在图片上的占比圆现在占据了几乎所有的区域，需要适当调整一下。设置一下x rangeset xrange [-15:15]图片就调整为这样：看上去位置还需要调整一下，多试几次，修改data文件里面的数据：7,10,5脚本也修改：set terminal png set outpu ...继续阅读 (23)

安装在spacemacs中使用graphviz，可以在自己的layer里面如下配置：(defconst dean-packages '(git chinese-pyim newlisp-mode c-c++ graphviz-dot-mode);;graphviz-dot-mode (defun dean/init-graphviz-dot-mode() (use-package graphviz-dot-mode) )重启emacs即可spacemacs一个非常好的地方是C-c c后，图片缓冲区会自动刷新。真的很给力！使用真的很简单。主要参考这篇文章http://archive.oreilly.com/pub/post/graphviz_why_draw_when_you_can.html ...继续阅读 (67)

据说超级牛，很方便，看了youku上的视频，感觉的确可以加强我自己的emacs的配置，比如主题，目录树等，还有chrome编辑插件等。今天试一下。安装很简单，先备份自己的.emacs.d目录，然后移走。现在clone项目到~/.emacs.d目录去git clone https://github.com/syl20bnr/spacemacs ~/.emacs.d有点大20多兆，等等吧，没关系。安装完成后，启动emacs。完全不认识了，不过很好看。按右键选择holly control tower(emacs) editing styel后面两个都选默认吧，都是功能最全，可能速度慢点或者系统资源消耗多点。电脑好无所谓了。：）现在等待下载package安装。界面太美。值得一试。创建dean layer现在创建private layer，用来保存自己的配置，不和github上的冲突。这样以后就可以用github放心升级spacemacs了。M-x configuration-layer/create-layer命令，然后回答几个问题，创建dean的private layer.需要编辑~/.spacemacs文件，添加dean layerdotspacemacs-configuration-layers '( ;; ------------------------------ ...继续阅读 (101)

iris花分类1 代码文件http://scikit-learn.org/stable/auto_examples/linear_model/plot_iris_logistic.html#sphx-glr-auto-examples-linear-model-plot-iris-logistic-py2 读取原始数据源importnumpyasnpimportmatplotlib.pyplotaspltfromsklearnimportlinear_model, datasets#import some data to play withiris= datasets.load_iris()得到的iris数据结果如下print(iris.data)这就是一个二维数组[[ 5.1 3.5 1.4 0.2] [ 4.9 3. 1.4 0.2] [ 4.7 3.2 1.3 0.2] [ 4.6 3.1 1.5 0.2] [ 5. 3.6 1.4 0.2] [ 5.4 3.9 1.7 0.4] [ 4.6 3.4 1.4 0.3] [ 5. 3.4 1.5 0.2] [ 4.4 2.9 1.4 0.2] [ 4.9 3.1 1.5 0.1] [ 5.4 3.7 1.5 0.2] ...继续阅读 (69)

选取csv文件的两个数值列，作为x,y坐标绘制点，点的颜色来自另一字符串列。具体脚本这样编写set terminal png set output "iris.png" set title "鸢尾花散点图" set xlabel 'sepal length' set ylabel 'petal length' set pointsize 1.2 plot "< awk '{if($5 == \"Iris-setosa\") print}' iris.csv" u 1:3 t "red" w p pt 2, \ "< awk '{if($5 == \"Iris-versicolor\") print}' iris.csv" u 1:3 t "green" w p pt 2, \ "< awk '{if($5 == \"Iris-virginica\") print}' iris.csv" u 1:3 t "blue" w p pt 2说明：1. 这里使用了内嵌的awk命令，对每一行的第5个字段做了检查2. u 1:3 只能设置2个 ...继续阅读 (33)

打开csv文件，可以利用emacs对缓冲区里面的数据进行排序。选择区域内按行增序排序原始数据为5.1,3.5,1.4,0.2,Iris-setosa 4.9,3.0,1.4,0.2,Iris-setosa 4.7,3.2,1.3,0.2,Iris-setosa 4.6,3.1,1.5,0.2,Iris-setosa 5.0,3.6,1.4,0.2,Iris-setosa 5.4,3.9,1.7,0.4,Iris-setosa 4.6,3.4,1.4,0.3,Iris-setosa 5.0,3.4,1.5,0.2,Iris-setosa 4.4,2.9,1.4,0.2,Iris-setosa 4.9,3.1,1.5,0.1,Iris-setosa 5.4,3.7,1.5,0.2,Iris-setosa 4.8,3.4,1.6,0.2,Iris-setosa 4.8,3.0,1.4,0.1,Iris-setosaC-x h选择全部数据做为区域后(C-x h换成C-@ 就可以选择部分区域)，M-x sort-lines, 排序结果为：4.3,3.0,1.1,0.1,Iris-setosa 4.4,2.9,1.4,0.2,Iris-setosa 4.4,3.0,1.3,0.2,Iris-setosa 4.4,3.2,1.3,0.2,Iris-setosa 4.5,2.3,1.3,0.3,I ...继续阅读 (38)

我的gnuplot是最新版本5.0现在的csv文件还是之前博客 org将csv文件转换成table 提到的文件。现在编写iris.plot文件，里面的gnuplot命令如下：set terminal png set output "iris.png" set title "鸢尾花散点图" set xlabel 'sepal length' set ylabel 'petal length' plot 'iris.csv' using 1:3 "%lf,%lf,%lf"说明前面两行表示结果输出为当前目录的iris.png文件plot命令 接收csv文件作为数据文件，使用1和3列（这里列从1开始），1-3列的数据格式都是%lf, 这是一个双精度浮点数类型。然后运行命令gnuplot iris.plot结果图片为： ...继续阅读 (23)

很简单，在org里面有一个table, 表格如下：（数据来源参考org将csv文件转换成table)#+caption: 鸢尾花识别 #+PLOT: title:"鸢尾花散点图" ind:1 type:2d deps:(3) set:"xlabel 'sepal length'" set:"ylabel 'petal length'" #+PLOT: with:points | Sepal Length | Sepal Width | Petal Length | Petal Width | class | |--------------+-------------+--------------+-------------+-----------------| | 5.1 | 3.5 | 1.4 | 0.2 | Iris-setosa | | 4.9 | 3.0 | 1.4 | 0.2 | Iris-setosa | | 4.7 | 3.2 | 1.3 | 0.2 | Iris-set ...继续阅读 (53)

其实很简单，只需要将csv文件复制过来，然后用命令C-u C-c |现在举个例子，从网站https://archive.ics.uci.edu/ml/datasets/Iris下载csv文件http://archive.ics.uci.edu/ml/machine-learning-databases/iris/iris.data这是一个植物分类的csv文件，根据花萼和花瓣的长度和宽度，识别出鸢尾花的三种品类。将csv内容复制到org文件中，然后运行上面的命令，会转换成org table，然后加上caption和head，会变成这样#+caption: 鸢尾花识别 | Sepal Length | Sepal Width | Petal Length | Petal Width | class | |--------------+-------------+--------------+-------------+-----------------| | 5.1 | 3.5 | 1.4 | 0.2 | Iris-setosa | | 4.9 | 3.0 | 1.4 | 0.2 | Iris-setosa | | ...继续阅读 (22)

用下面的命令编译$ git clone https://github.com/quantcast/qfs.git $ cd qfs $ make如果出现CMake报错找不到jni，应该是环境变量的问题，参考我的.bashrc，并根据自己的环境做一些修改export JAVA_HOME=/usr/lib/jvm/java-8-openjdk export JRE_HOME=/usr/lib/jvm/java-8-openjdk/jre export PATH=$PATH:/usr/lib/jvm/java-8-openjdk/bin export CLASSPATH=./:/usr/lib/jvm/java-8-openjdk/lib再运行sudo make，编译通过。安装了一堆东东Install the project... -- Install configuration: "RelWithDebInfo" -- Installing: /usr/local/lib/static/libgf_complete.a -- Installing: /usr/local/lib/static/libJerasure.a -- Up-to-date: /usr/local/lib -- Installing: /usr/local/lib/libgf_complete ...继续阅读 (40)

一个奇怪的设计，下面来自http://stackoverflow.com/questions/509211/explain-pythons-slice-notation这么理解吧，1. 如果没有:，只有数字，最简单，就是取对应索引位置的元素，索引从0开始2. 第一个:表示分隔start和end两个位置索引3. 第二个:表示步长4. 如果第一个:左或者右为空，就用默认值0和length5. 第一个:的左边一定是闭区间，右边一定是开区间，也就是[start,end)的概念，或者表达成[start,end-1]6. 连续两个冒号::表示反转It's pretty simple really:a[start:end]# items start through end-1a[start:]# items start through the rest of the arraya[:end]# items from the beginning through end-1a[:]# a copy of the whole arrayThere is also the step value, which can be used with any of the above:a[start:end:step]# start through not past end, by stepT ...继续阅读 (30)

ArchLinux默认提供最新版本scikit-learn安装pacman -Syu scikit-learn这样安装的是支持python 3的，正是我要的。然后从网站上下载一个线性回归的例子http://scikit-learn.org/stable/auto_examples/linear_model/plot_ols.html#example-linear-model-plot-ols-py文件名：plot_ols.py运行该文件，报缺少模块python-matplotlib安装该模块pacman -Syu python-matplotlib再次运行文件，成功，看到图形了。 ...继续阅读 (24)

极值与导数1 求某一函数的极值,为什么让其导数函数等于零,求出的值是什么？导数的实质就是在函数图像上取一个点,然后做这个点的切线,切线的正切（tan）值,一个函数的极值一定是在拐点上（就是原本是增函数,过了这个点就变成减函数,或者反过来）,而这个点的切线一定是平行于x轴的, 也就是说正切值为0,所以导数值也就是02 一元函数计算极值的计算步骤求导数f'(x)解方程f'(x)=0检查f'(x)在方程的左右的值的符号如果左正右负，那么f(x)在这个根处取得极大值如果左负右正那么f(x)在这个根处取得极小值特别注意 f'(x)无意义的点也要讨论。即可先求出f'(x)=0的根和f'(x)无意义的点，再按定义去判别。 求极值点步骤 （1）、求出f'(x)=0,f"(x)≠0的x值； （2）、用极值的定义（半径无限小的邻域f(x)值比该点都小或都大的点为极值点），讨论f(x)的间断点。3 定理1（必要条件）设函数z = f(x,y)在点 (x0,y0)(x0,y0) 具有偏导数，且在点 (x0,y0)(x0,y0) 处有极值，则它在该点的偏导数必然为零{f′x(x0,y0)=0f′y(x0,y0)=0(31)(31){fx′(x0,y0)=0fy′(x0,y0)=04 定理2（充分条件）设函数z = f( ...继续阅读 (15)

最小二乘法1 英文名称least square method2 用途最小二乘法（又称最小平方法）是一种数学优化技术。通过最小化误差的平方和寻找数据的最佳函数匹配。利用最小二乘法可以简便地求得未知的数据，并使得这些求得的数据与实际数据之间误差的平方和为最小。 最小二乘法还可用于曲线拟合。其他一些优化问题也可通过最小化能量或最大化熵用最小二乘法来表达。3 原理最小二乘的思想就是要使得观测点和估计点的距离的平方和达到最小.这里的“二乘”指的是用平方来度量观测点与估计点的远近（在古汉语中“平方”称为“二乘”），“最小”指的是参数的估计值要保证各个观测点 与估计点的距离的平方和达到最小。从这个上也可以看出，最小二乘也可用于拟合数据模型。这当中涉及到如下问题观测点和距离点的距离这个距离也被称为误差。既然要估计，总希望找到最好的估计值，那么误差越小越好。为什么是距离的平方和平方和是为了防止负数造成的干扰，距离的平方和也就是误差的平方和为什么平方求解方便呢 那就要从公式讲起。参考下面一节。4 公式如果期望的拟合直线方程是 y = ax + b, 和真实观测点 yiyi 的距离就是 di=yi−(axi+b)di=yi−(axi+b), 每个模拟点和观测点的距离的平方和公式就是∑i=1nd2i=∑i=1n(yi−(axi+b))2 ...继续阅读 (20)

newlisp stat库提供了常用的统计函数，这里简单介绍。加载模块> (module "stat.lsp") (lambda (stat:lst) (append (join (map string stat:lst) "\r\n") "\r\n"))求和> (setf a '(1 2 3 1 4 5 7)) (1 2 3 1 4 5 7) > (stat:sum a) 23平均值> (stat:mean a) 3.285714285714286平方和> (stat:sum-sq a) 105也就是a的每个元素求平方，然后全部加起来的和样本方差> (stat:var a) 4.904761904761905样本方差的文档参考：http://baike.baidu.com/view/2100256.htm公式是经过公式推导，可以变形为下面的实现：; variance of a data vector X (define (var X) (div (sum-d2 X) (sub (length X) 1))) ; sum of sqared differenses of X to mean of X (define (sum-d2 X) (sub (sum-sq X) (div (m ...继续阅读 (23)

用newlisp cilk API可以实现多进程通信。在实际应用中，父进程发送消息给多个子进程，使得父进程可以专注于自己的工作，把一些额外的工作交给子进程去完成，做到对父进程任务无阻塞的效果。这里的例子程序是process.lsp文件，这样调用：./process.lsp --process-number=5 child-process-list: (4289 4288 4287 4286 4285) child process: 4289 child process: 4288 child process: 4287 child process: 4286 child process: 4285输入5,告知需要创建5个子进程。5个子进程被创建的信息被父进程打印在控制台上。5个子进程都有自己的日志文件，里面是接收到来自父进程的消息。-rw-r--r-- 1 dean dean 9 Sep 13 19:29 4285.log -rw-r--r-- 1 dean dean 9 Sep 13 19:29 4286.log -rw-r--r-- 1 dean dean 9 Sep 13 19:29 4287.log -rw-r--r-- 1 dean dean 9 Sep 13 19:29 4288.log -rw-r--r-- 1 dean dea ...继续阅读 (27)

这个一般来说都很简单，直接用Ctrl + 向上的方向键, 但是在xshell登录到centos 6的环境后，执行里面的emacs，就不行了。有一个替代的方法是使用另一个快捷键 M-p执行下一条命令，可以用M-n特此记录。 ...继续阅读 (39)

一直以来都是命令行，今天试一下emacs的git模块。据说egg是一个从Magit fork出来但是用户界面更好的mode，可惜去了github站点发现4年没有更新了。而Magit仍然活跃。所以选择Magit吧。安装通过emacs package管理安装最新版本2.7.0, 为了查看git状态，在init.el中添加快捷键绑定(global-set-key (kbd "C-x g") 'magit-status)然后重启emacs.现在来试一试如何用，官方文档在这里：https://magit.vc/manual/magit.html#Top状态查询C-x g来查询状态会打开一个buffer，显示Head: //指向当前分支的的最近一次提交Merge: //远程分支的最近一次提交Untracked files //工作区中有，但没有加入git管理Unstaged files //git管理的，在工作区已经修改的，但是没有用git add进入staged状态其实还有其他更多信息："Staged changes", //用git add变成了staged状态"Unpulled commits", "Unpushed commits",状态信息做的不错，git status输出也有这些信息，不过没有 ...继续阅读 (50)

二进制字符串转换成整数(int "0b100100100101001001000000000000000000000010100100") ;-> 160881958715556十进制正整数转换成二进制list本来想直接转成string，后来想list更通用，所以就先转成list;; @arg in-value decimal value ;; @return binary value list ;; @example (get-binary-str 8) => (1 0 0 0) (define (get-binary-value int-value) (if (< int-value 0) (throw "cannot handle negative integer") ) (setq r '()) (setq v int-value) (setq divided-result nil) ;; 商 (setq divided-left nil) ;; 余数 (do-until (= 0 divided-result) (setq divided-result (/ v 2)) (setq divided-left (% v 2)) (push div ...继续阅读 (39)

org-trello可以帮助在org文档和trello站点的board直接同步，两个方向都可以。安装这里不说了，具体可以看org-trello站点介绍。这里只是说下常用的命令把trello的内容同步到org文档C-u C-c o s仅从trello同步某个卡片内容到org文档C-u C-c o c从org文档同步到trello站点C-c o s仅将org文档的某个卡片同步到trello站点C-c o c ...继续阅读 (49)

由于思考并发提升性能的问题，想到了要测试一下读取文件有多快/慢？下面的代码读取了一个csv文件，统计了每秒能读取读少行。结果还是不错的。#!/usr/bin/newlisp (setq t1 (date-value)) (set 'in-file (open "dw_product_dt.csv" "read")) (setq counter 0) (while (read-line in-file) (inc counter)) (close in-file) (setq t2 (date-value)) (setq duration (- t2 t1)) (println "totol line number: " counter) (println (format "read %lld lines per second" (/ counter duration))) (exit)运行结果：$ ./file-read-speed.lsp totol line number: 122137863 read 6785436 lines per second每秒读取6百万行以上，真是飞快。在看了一下测试文件，每行只有几个字段，实在太短，用这真实项目的文件来测试，每行1258个字符结果如下：# ./ ...继续阅读 (52)

本文会不断修改，这里先只是收集常用的一些技巧，以后在系统梳理。打开目录C-x C-f 和打开文件是一样的。可以看到目录下所有文件total used in directory 24 available 172988424 drwxr-xr-x 2 dean dean 4096 Jul 19 09:15 . drwxr-xr-x 10 dean dean 4096 Jul 19 09:13 .. -rw-r--r-- 1 dean dean 208 Jul 19 09:13 args.lsp -rwxr-xr-x 1 dean dean 1758 Jul 19 09:13 check.lsp -rwxr-xr-x 1 dean dean 192 Jul 19 09:15 run.sh -rwxr-xr-x 1 dean dean 159 Jul 19 09:13 run.sh~修改文件名光标停留在目录里的某个文件名上，然后按R，输入新的文件名。所有的该文件的buffer都会被刷新。删除文件先用d标记，再用x删除去除删除标记用u刷新缓冲区用g键就可以刷新缓冲区，目录下文件如果有变更，可以立刻看到。 ...继续阅读 (54)

给定一个当前时间对应的epoch，如何获取北京时间(GMT+8)的天数天数指的是从1970年1月1日0点开始数的天数看上去很简单，如果有epoch值t表示当前时间，直接用公式(t-0)/86400秒说明：1. 0表示1970年1月1日0点对应的秒数2. 86400秒表示一天的秒数，等于24(小时) * 3600(秒)但是错了。注意时区不一样。epoch是UTC时区，而我们这里是GMT+8时区。我们想要的天数是从GMT+8时区的1970年1月1日0点开始的天数。GMT+8时区的1970年1月1日0点比UTC时区的1970年1月1日0点早8小时，也就是秒数大8 * 3600 秒。首先公式里面用的都应该是GMT+8时区的值才准确。epoch代表UTC时区，加上8小时的秒数，就代表GMT+8时区的秒数。我们起个不正式的名字"local epoch", 代表相对于GMT+8时区的1970年1月1日0点开始的秒数。local-epoch = epoch + 8 * 3600这样公式变为：北京时间自1970年1月1日0点开始的天数 = local-epoch/86400给定一个当前时间对应的epoch，如何获取北京时间(GMT+8)的小时数从上面的经验来看，在GMT+8时区，所有数都应该转换成对应的时区。因此应该获取local epoch，然后计算当天的小时数。不过newli ...继续阅读 (62)

epoch是什么epoch是1. 固定在格林尼兹时间，也就是UTC(GMT)时区2. 从1970年开始0点开始的秒数一个epoch对应24个不同时区的时间其他时区和epoch可以互相转换，下表的结论经过http://www.epochconverter.com/timezones?q=0&tz=UTC手工验证。一个epoch值对应了24个时区的不同的时间，注意GMT+12和GMT-12是同一个地方，但是可以用两个时区表示时间，时间相差24小时。epoch时区时间0UTC or GMTJanuary 01, 1970 00:00:000GMT+1Jan 01 1970 01:00:000GMT+2Jan 01 1970 02:00:000GMT+3Jan 01 1970 03:00:000GMT+4Jan 01 1970 04:00:000GMT+5Jan 01 1970 05:00:000GMT+6Jan 01 1970 06:00:000GMT+7Jan 01 1970 07:00:000GMT+8January 01, 1970 08:00:000GMT+9Jan 01 1970 09:00:000GMT+10Jan 01 1970 10:00:000GMT+11Jan 01 1970 11:00:000GMT+12(GMT-12)Jan 01 1970 12:00:0 ...继续阅读 (106)

增加一个函数extract作为参数，可以通过extract提取list某个元素的某个属性然后进行比较，而不是假定list中的每个元素都是简单的symbol，并且可以比较。这样就可以允许用在实际工作中。;; @arg extract is a function to extract value from object to compare with key (define (quick-sort-ex start end extract) (if (>= start end) (begin ;; (println "return") ) (begin (letn (first-idx start last-idx end key (extract (values first-idx)) ) ;; (println "key: " key) ;; (println "fist-idx: " first-idx) ;; (println "last-idx: " last-idx) (while (< first-idx last-idx) (while (and (< first-idx last-i ...继续阅读 (51)