Alcides Flores Pineda alcidesfp
alcidesfp
/ numero-lcd-test.rkt
Created
March 13, 2012 05:58
Kata NumberToLCD en Racket - Pruebas Unitarias
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; -*- coding:utf-8; mode:Scheme -*- | |
| #lang racket | |
| (require rackunit | |
| rackunit/text-ui | |
| "numero-lcd.rkt") | |
| (define-test-suite numero-lcd-suite | |
| (test-case |
alcidesfp
/ num-roman.rkt
Created
February 22, 2012 19:40
Kata Roman Numerals en Scheme Racket idiomático (funcional)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ;; -*- coding: utf-8; mode: scheme -*- | |
| ;; $Id: num-roman.rkt,v 1.14 2012/02/16 04:02:35 alcides_fp Exp $ | |
| #lang racket | |
| (provide numeral) | |
| (define (numeral digito posicion) | |
| (let ((matriz-numerales | |
| #(#("" "I" "II" "III" "IV" "V" "VI" "VII" "VIII" "IX") | |
| #("" "X" "XX" "XXX" "XL" "L" "LX" "LXX" "LXXX" "XC") |
NewerOlder