Skip to content

Instantly share code, notes, and snippets.

@alcidesfp

alcidesfp/numero-lcd.rkt

Created March 13, 2012 06:00
Show Gist options
  • Save alcidesfp/2027144 to your computer and use it in GitHub Desktop.
Save alcidesfp/2027144 to your computer and use it in GitHub Desktop.
Download ZIP
Kata NumberToLCD en Racket - Código de producción
Raw
numero-lcd.rkt
;; -*- coding:utf-8; mode:Scheme -*-
#lang racket
(provide num->lcd)
(define cadenas #((string-append " - \n"
"| |\n"
" \n"
"| |\n"
" - \n") ;;0
(string-append " \n"
" |\n"
" \n"
" |\n"
" \n") ;;1
(string-append " - \n"
" |\n"
" - \n"
"| \n"
" - \n") ;;2
(string-append " - \n"
" |\n"
" - \n"
" |\n"
" - \n") ;;3
(string-append " \n"
"| |\n"
" - \n"
" |\n"
" \n") ;;4
(string-append " - \n"
"| \n"
" - \n"
" |\n"
" - \n") ;;5
(string-append " - \n"
"| \n"
" - \n"
"| |\n"
" - \n") ;;6
(string-append " - \n"
" |\n"
" \n"
" |\n"
" \n") ;;7
(string-append " - \n"
"| |\n"
" - \n"
"| |\n"
" - \n") ;;8
(string-append " - \n"
"| |\n"
" - \n"
" |\n"
" - \n") ;;9
))
(define (num->lcd num)
(eval (vector-ref cadenas num)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment