diff options
Diffstat (limited to 'main.rkt')
-rwxr-xr-x | main.rkt | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/main.rkt b/main.rkt new file mode 100755 index 0000000..90e0daa --- /dev/null +++ b/main.rkt @@ -0,0 +1,12 @@ +#!/usr/bin/env racket +#lang racket/base + +(require racket/string) + +(define line (list->vector (string->list (string-downcase (read-line))))) + +(for ([i (vector-length line)]) + (let [(chance (>= 5 (random 10)))] + (cond [chance (vector-set! line i (char-upcase (vector-ref line i)))]))) + +(displayln (list->string (vector->list line))) |