asmer
30.06.2012 02:35
(defun filtered (&optional (filter-condition t))
(maphash #'(lambda (k v)
(if (eval filter-condition)
(out-object v)))
*list*)
я правильно, понял, нет способа передать условие, которое проверяет k или v в эту функцию(так как filter-condition не находится в лексическом окружении k и v). Такое можно сделать ... more →
asmer
29.02.2012 00:48
$ s emerge -av scheme2c
* IMPORTANT: 10 news items need reading for repository 'gentoo'.
* Use eselect news to read news items.
These are the packages that would be merged, in order:
Calculating dependencies... done!
[ebuild N ] dev-lang/ghc-7.0.4 USE="bash-completion -binary -doc -ghcbootstrap -llvm" 104,062 ... more →
asmer
22.02.2012 13:05
asmer@iridium ~ $ tail /var/log/emerge-fetch.log
58750K .......... .......... .......... .......... .......... 34% 15,5K 3h2m
asmer
25.01.2012 23:46
сделал 1.16. пришлось подумать, но осилил. Мой код полностью совпал с тем, что я потом нагуглил для проверки (за исключением названия функций):
(define (p-i b n)
(p-iter 1 b n))
(define (p-iter a b n)
(if (= n 0)
a
(if (even? n)
(p-iter a (* b b) (/ n 2))
(p-iter (* a b) b (- n 1)))))
(define (even? a)
(= ... more →
asmer
07.12.2011 20:46
emerge -av psi-psto (rion-overlay, если чо)