とりあえず作ってみた。ドラゴン曲線。その２。
東方算程譚:dragon-curve
言葉のまま書いたらこうでした→とりあえず作ってみた。ドラゴン曲線。
でもっていらないの削っておきましたっと。
アルゴリズムってぜんぜん知らないなぁ･･･。
[Visual basic]Imports System
Public Class ドラゴン曲線
Public Function 作る(ByVal 折り曲げる回数 As Integer) As String
Dim 出来上がったドラゴン曲線 As String = String.Empty
For i As Integer = 0 To 折り曲げる回数 - 1
出来上がったドラゴン曲線 = 折り曲げる(出来上がったドラゴン曲線)
Next
Return 出来上がったドラゴン曲線
End Function
Private Function 折り曲げる(ByVal 今の状態 As String) As String
Dim 折り曲げた後 As String = 今の状態 & "L"
For i As Integer = 今の状態.Length - 1 To 0 Step -1
If 今の状態.Substring(i, 1) = "L" Then
折り曲げた後 &= "R"
Else
折り曲げた後 &= "L"
End If
Next
Return 折り曲げた後
End Function
End Class
