fork(1) download 
  1. import Data.Char
  2.  
  3. main = print $ rot13 "How can you tell an extrovert from an"
  4.  
  5. rot13 "" = ""
  6. rot13 (c:str) = crot13 c : rot13 str
  7.  
  8. crot13 c
  9.   | 'a' >= c && 'z' <= c = chr (aBaseRot 'a' + (ord 'a'))
  10.   | 'A' >= c && 'Z' <  c = chr (aBaseRot 'A' + (ord 'A'))
  11.   | otherwise =c
  12.      where
  13.        aBase    x = (ord c) - (ord x)
  14.        aBaseRot x = (aBase x +13) `mod` 26
Success #stdin #stdout 0s 4332KB
comments (?)
stdin 
Standard input is empty
stdout 
"How can you tell an extrovert from an"
https://ideone.com/0gDEIW
language:
Haskell (ghc 8.4.4)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!