Any Lisp fans?

Archive
1

You should like this little device:


(define LED_On (lambda ()(dev.gpio 11 "out" 1)))
(define LED_Off (lambda ()(dev.gpio 11 "out" 0)))
(define CurrentTime? (lambda ()
      (int (time.strftime "%H" (time.localtime (time.time))))))
(define Night?
      (lambda ()
            (and
                  (> ( CurrentTime? ) 16) (< ( CurrentTime? ) 23)
            )
      )
)
(if (Night?) (LED_On) (LED_Off)