12 lines
264 B
Plaintext
12 lines
264 B
Plaintext
fun char read_char(int i) = read(char)
|
|
|
|
fun [char] read_string(int n) = map(read_char, iota(n))
|
|
|
|
fun int add_one(int x) = x + 1
|
|
|
|
fun [char] main() =
|
|
let n = read(int) in
|
|
let s1 = read_string(n) in
|
|
let s2 = map(chr, map(add_one, map(ord, s1))) in
|
|
write(s2)
|