自分用にカスタマイズしたshared-mime-infoのソース
Rev. | 0b080f41298aa263cce5f2ea4807eb5aad0efe6e |
---|---|
Tamanho | 278 bytes |
Hora | 2020-03-16 10:18:59 |
Autor | dyknon |
Mensagem de Log | New upstream version 1.15 |
;; tested with Guile; might need
;; slight modification for your
;; Scheme dialect
(use-modules (ice-9 format))
(define (fac n)
(let loop ((acc 1)
(i n))
(if (zero? i)
acc
(loop (* acc i) (- i 1)))))
(format #t "(fac 5) = ~d\n" (fac 5))