「#俳句プログラミング プチコンテスト 2015」ピックアップ Vol. 1

# @3846masa
尋ねたら
それを2で割り
言ってやる

// コマンドライン引数に俳句を半角スペースで5・7・5に区切って入力してから、実行します。
[<EntryPoint>]
let main argv =

    // 文字数1番多い行の文字数を求めます。
    let max = ( argv |> Seq.maxBy( fun a -> a.Length ) ).Length

    // 各行は上で求めた文字数になるように、全角スペースで末尾をパディングします。
    let argv2 = argv |> Array.map( fun a -> a.PadRight( max, '　' ) )

    // 文字列のを縦書きになるように並び替えて、出力します。
    Array.init max ( fun i -> System.String( [| for j in 0..argv2.Length - 1 -> argv2.[j].[i] |] |> Array.rev ) )
    |> Array.iter( fun v -> v |> printfn "%s" )

    0

#include <iostream>
using namespace std;

#define kakikueba int main() { cout << "huruikeya\n";
#define kaneganarunari cout << "kawazutobikomu\n";
#define houryuuji cout << "mizunooto\n"; return 0;}

kakikueba
kaneganarunari
houryuuji

do ->
  poems = [
    {creator: "正岡子規", kamigo: "赤とんぼ", nakashichi: "筑波に雲も", shimogo: "無かりけり"},
    {creator: "松尾芭蕉", kamigo: "五月雨を", nakashichi: "集めてはやし", shimogo: "最上川"}
  ]

  haikuVM = new Vue
    data:
      haikus: poems
  haikuVM.$mount '#haiku'
  return

<html>
  <head>
    <script src="https://cdnjs.cloudflare.com/ajax/libs/vue/0.11.5/vue.min.js"></script>
    <style>h3{white-space: pre }</style>
  </head>
  <body>
    <div id="haiku">
      <div v-repeat="haikus">
        <h1>{{creator}}</h1>
        <h3>  {{kamigo}}</h3>
        <h3>  {{nakashichi}}</h3>
        <h3>  {{shimogo}}</h3>
      </div>
    </div>
    <script src="./haikuVue.js"></script>
  </body>
</html>

10 CLS
20 DIM S$(3)*24: DIM SS$(3)*24
30 S$(2) = "ﾎﾟｹｺﾝﾓ"
40 S$(1) = "ﾏﾀﾞﾏﾀﾞｹﾞﾝｴｷ"
50 S$(0) = "ﾍﾞ!ｼｯｸ"
60 LPRINT "I-------I"
70 FOR I=1 TO 24
80 FOR J=0 TO 2
90 SS$(J) = MID$(S$(J), I, 1)
100 IF SS$(J)="" THEN LET SS$(J)=" "
110 NEXT J
120 IF SS$(0)=" " AND SS$(1)=" " AND SS$(2)=" " THEN GOTO 150
130 LPRINT "I " +SS$(0)+" "+SS$(1)+" "+SS$(2)+ " I"
140 NEXT I
150 LPRINT "I-------I

#! /usr/local/bin/ruby21
require 'csv'
F, S = [], []
open("naist-jdic.csv", "r:EUC-JP:UTF-8"){|file|
    file.each_line {|buf|
       a = buf.split(",")
       next if a[13] != ""
       if a[11].length == 5 then F << a[0]
       elsif a[11].length == 7 then S << a[0]
       end
    }
}
loop {
    print "%s %s %s\n" % [F.sample, S.sample, F.sample]
    sleep 1
}

sounds=%w(c o u g h)
cough = sounds.shuffle
count = 0
while (sounds != cough)
	cough.shuffle! 
	print sounds != cough ? "(⊙ ω ⊙)" : "  (´・ω・｀)ゴホン  "
	count += 1
	(1..count).each{|c| print c != count ? "(⊙ ω ⊙)" : "(⊙ ω ⊙)\n" } if sounds == cough
end

p "咳をしても一人"
p (count*2).to_s + "人の中で一人です"