入力した俳句をシーザー暗号化するプログラムです。

CaesarHaiku.fs

// Auther : Nia Tomonaka
// Twitter : https://twitter.com/nia_tn1012

[<EntryPoint>]
let main argv = 

    // 入力した俳句をシーザー暗号化します。
    // 但し、区切り文字として、半角スペースとカンマはそのままにします。
    printf "平文　："
    System.Console.ReadLine()
    |> String.map( fun c -> if c = ',' || c = ' ' then c else c + char( 3 ) )
    |> printfn "暗号文：%s"

    0

// CaesarHaiku.fs
// Copyright (c) 2014-2015 Myoga-TN.net All Rights Reserved