Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 32 lines (25 sloc) 0.534 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

(define (print color bg-color x y text)
  (MUL y 32)
  (ADD y x)
  (ADD y 0x8000)
  (SHL color 12)
  (SHL bg-color 8)
  (BOR text color)
  (BOR text bg-color)
  (SET [y] text))

(define (%print-number n i)
  (define (p n)
    (print 0xf 0 (- 31 i) 0 (+ 0x30 n)))
  
  (if (< n 10)
      (p n)
      (begin
        (p (% n 10))
        (%print-number (/ n 10) (+ i 1)))))

(define (print-number n)
  (%print-number n 0))

(define (fib a)
  (if (<= a 1)
      1
      (+ (fib (- a 1))
         (fib (- a 2)))))

(print-number (fib 8))
Something went wrong with that request. Please try again.