*code

(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 →

#ongstt

add comment

$ 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 →

#oingzf

6 comments

asmer@iridium ~ $ tail /var/log/emerge-fetch.log
58750K .......... .......... .......... .......... .......... 34% 15,5K 3h2m

#oienez

3 comments

сделал 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 →

#ofeftt

add comment

emerge -av psi-psto (rion-overlay, если чо)

#ohzsnn

add comment