about summary refs log blame commit diff stats
path: root/main.rkt
blob: 90e0daa70d6fdff51ac61a98bd0e978c32cc5376 (plain) (tree)
1
2
3
4
5
6
7
8
9
10
11
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)))