RosettaCodeData/Task/Caesar-cipher/Langur/caesar-cipher.langur

11 lines
310 B
Text
Raw Permalink Normal View History

2024-07-13 15:19:22 -07:00
val rot = fn(s, key) {
2025-02-27 18:35:13 -05:00
cp2s map(s2cp(s), by=fn(c) { rotate(rotate(c, distance=key, range='a'..'z'), distance=key, range='A'..'Z') })
2023-07-01 11:58:00 -04:00
}
2026-04-30 12:34:36 -04:00
val s = "A quick brown fox jumped over something."
2024-07-13 15:19:22 -07:00
val key = 3
2023-07-01 11:58:00 -04:00
2024-07-13 15:19:22 -07:00
writeln " original: ", s
writeln "encrypted: ", rot(s, key)
writeln "decrypted: ", rot(rot(s, key), -key)