level 2
不﹏懂
楼主
以下是截取,求解pe是什么意思?我查了手头的资料,似乎没有pe这个函数,程序中似乎也没有pe这个变量,求大神指教。
(setq f (open "123.dat" "r"))
(setq k (read-line f))
(while (and (/= k "END")(/= k nil))
(setq b nil kk (substr k 2))
(setq k (read-line f))
(while (and (/= k nil)(/= (substr k 1 1) "*"))
(setq b (cons k b))
(setq k (read-line f))
);while-2
(setq bb (pe kk ",") kk (nth 0 bb) kkf (nth 1 bb))
(setq b (list kk (reverse b)))
(setq datb (cons b datb) gxdzb (cons (list kk kkf) gxdzb))
);while-1
2016年08月22日 08点08分
1
(setq f (open "123.dat" "r"))
(setq k (read-line f))
(while (and (/= k "END")(/= k nil))
(setq b nil kk (substr k 2))
(setq k (read-line f))
(while (and (/= k nil)(/= (substr k 1 1) "*"))
(setq b (cons k b))
(setq k (read-line f))
);while-2
(setq bb (pe kk ",") kk (nth 0 bb) kkf (nth 1 bb))
(setq b (list kk (reverse b)))
(setq datb (cons b datb) gxdzb (cons (list kk kkf) gxdzb))
);while-1