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

Sub Main()
    Dim Verse(3) As String, r As Integer, c As Integer, i As Integer, j As Integer
    Pix = 40
    With Cells
        .Font.Name = "HGP行書体"
        .Font.Size = "20"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .RowHeight = Pix * 0.75
        .ColumnWidth = Pix * 0.118
    End With
    Verse(1) = "古池や"
    Verse(2) = "蛙飛び込む"
    Verse(3) = "水の音"
    For i = 1 To UBound(Verse)
        For j = 1 To Len(Verse(i))
            Cells(j, UBound(Verse) - i + 1) = Mid(Verse(i), j, 1)
        Next
    Next
End Sub

title "#俳句プログラミング "
font "@ＭＳ Ｐ明朝",42
pos 10,10
mes "古池や\n　蛙飛び込む\n　　　水の音"
pos 200,200
celput 0, 0, , ,(M_PI/2)

ACLS
R=360:W=399:H=239
C=RGB(80,208,255)
PRINT "はるのうみ"
PRINT "ひねもすのたり"
PRINT "のたりかな"
WHILE 1
 BGMMPLAY "@122C1"
 A=RND(R)
 FOR X=0 TO W
  GLINE X,H/2+2*SIN(A+X/40),X,H,C
 NEXT
 WAIT R
 GCLS
WEND

import functools; [print(l[::-1]) for l in functools.reduce(lambda s, w: [i + j for i, j in zip(s, list(w.ljust(7, '　')))], input().split(), [""]*7)]

using System;
using System.Dynamic;

namespace Haiku
{
    class Program
    {
        static void Main(string[] args)
        {
            ここで.一句
                .柿食えば
                .鐘が鳴るなり
                .法隆寺();
        }
    }

    class ここで : DynamicObject
    {
        public static dynamic 一句
        {
            get { return new ここで(); }
        }

        public override bool TryGetMember(GetMemberBinder binder, out object result)
        {
            Console.WriteLine(binder.Name);
            result = this;
            return true;
        }

        public override bool TryInvokeMember(InvokeMemberBinder binder, object[] args, out object result)
        {
            Console.WriteLine(binder.Name);
            Console.ReadKey();
            result = this;
            return true;
        }
    }
}

on displayHaiku(haiku)
	
	set haiku_lines to paragraphs of haiku -- 各行 (linesは予約後(の複数形)なので使えない！)
	set max_length to 0 -- 一番長い行の文字数
	
	repeat with ln in haiku_lines -- line、lengthは予約後なので使えない！
		set len to length of ln
		if max_length < len then set max_length to len
	end repeat
	
	set line_count to count haiku_lines -- 行数
	set tategaki to ""
	
	repeat with i from 1 to max_length
		repeat with j from 1 to line_count
			set ln to item (line_count + 1 - j) of haiku_lines -- 下の行から上の行へ
			
			if length of ln ≥ i then -- 文字がなかった場合にエラーが出るからifで分けなきゃいけない
				set chr to character i of ln -- 一文字ずつ取り出す
			else
				set chr to "　" -- 文字数が足りない場合は空白で埋める
			end if
			
			set tategaki to tategaki & chr -- 文字を追加
		end repeat
		
		set tategaki to tategaki & "\n"
	end repeat
	
	--- 表示
	--- say haiku -- せっかくだから喋らせたかったけど「いにしえいけや」って喋るからやめた
	display alert tategaki buttons "よい"
end displayHaiku

displayHaiku("古池や\n蛙飛びこむ\n水の音")