schemeでrgb->hex hex->rgb変換

gistfile1.scm

(define-module color-convert
 (export hex->rgb)
 (export rgb->hex)
 (export rgb->hls))

(select-module color-convert)

(use srfi-13)

(define (hex->rgb hex)
 (map
  (lambda (h) (string->number h 16))
  (map list->string 
   (slices (string->list hex) 2))))

(define (rgb->hex r g b)
 (string-concatenate
  (map 
   (lambda (c) (number->string c 16 #t))
   '(r g b))))

(provide "color-convert")

星くんに)は全部くっつけるんだよって言われたから直したよ