diff options
author | Brian Chu <brianmchu42@gmail.com> | 2021-02-21 00:11:56 -0800 |
---|---|---|
committer | Brian Chu <brianmchu42@gmail.com> | 2021-02-21 00:11:56 -0800 |
commit | 49ca9728b7d0d5ba4eb31d9ef3fbfaed3f66a7ea (patch) | |
tree | 63c03bfb0973965d5f39511504652a6bdda95c38 /main.rkt | |
download | sarcasticizer-49ca9728b7d0d5ba4eb31d9ef3fbfaed3f66a7ea.tar.gz |
initial commit:
- implement basic functionality in Racket - implement shell wrapper
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))) |