• R/O
  • HTTP
  • SSH
  • HTTPS

Tags
No Tags

Frequently used words (click to add to your profile)

javac++androidlinuxc#windowsobjective-ccocoa誰得qtpythonphprubygameguibathyscaphec計画中(planning stage)翻訳omegatframeworktwitterdomtestvb.netdirectxゲームエンジンbtronarduinopreviewer

自分用にカスタマイズしたshared-mime-infoのソース


File Info

Rev. 0b080f41298aa263cce5f2ea4807eb5aad0efe6e
Tamanho 278 bytes
Hora 2020-03-16 10:18:59
Autor dyknon
Mensagem de Log

New upstream version 1.15

Content

;; 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))