ズンドコキヨシ.jl with Iteration （追記あり） ref: http://qiita.com/antimon2/items/b198076666b40c72cece

zundoko_iter.jl

# zundoko_iter.jl

immutable ZunDoko end

Base.start(::ZunDoko) = 0
Base.done(::ZunDoko, i::Int) = i == 6
function Base.next(::ZunDoko, i::Int)
    if i == 5
        ("キ・ヨ・シ！", 6)
    elseif i == 4
        rand([("ズン", 4), ("ドコ", 5)])
    else
        rand([("ズン", i + 1), ("ドコ", 0)])
    end
end

function runzundoko()
    for cw in ZunDoko()
        print(cw)
    end
    println()
end

runzundoko()
# => ズンズンズンドコズンズンズンドコドコドコドコズンズンズンズンズンドコキ・ヨ・シ！

zundoko_iter_strict.jl

# zundoko_iter_strict.jl

immutable ZunDoko end

Base.start(::ZunDoko) = 0
Base.done(::ZunDoko, i::Int) = i == 6
function Base.next(::ZunDoko, i::Int)
    if i == 5
        ("キ・ヨ・シ！", 6)
    elseif i == 4
        rand([("ズン", -1), ("ドコ", 5)])
    elseif i == -1
        rand([("ズン", -1), ("ドコ", 0)])
    else
        rand([("ズン", i + 1), ("ドコ", 0)])
    end
end

function runzundoko()
    for cw in ZunDoko()
        print(cw)
    end
    println()
end

runzundoko()
# => ドコズンズンズンズンズンズンドコズンズンズンズンドコキ・ヨ・シ！

zundoko_iter_val.jl

# zundoko_iter_val.jl

immutable ZunDoko end

Base.start(::ZunDoko) = Val{0}
Base.done(::ZunDoko, ::Type{Val{6}}) = true
Base.done{N}(::ZunDoko, ::Type{Val{N}}) = false
Base.next(::ZunDoko, ::Type{Val{5}}) = ("キ・ヨ・シ！", Val{6})
Base.next(::ZunDoko, ::Type{Val{4}}) = rand([("ズン", Val{4}), ("ドコ", Val{5})])
Base.next{N}(::ZunDoko, ::Type{Val{N}}) = rand([("ズン", Val{N+1}), ("ドコ", Val{0})])

function runzundoko()
    for cw in ZunDoko()
        print(cw)
    end
    println()
end

runzundoko()
# => ドコドコズンズンズンドコズンズンドコズンドコドコズンドコズンズンズンズンドコキ・ヨ・シ！