DouKaku?beta

Comment detail

LL Golf Hole 5 - 最上位の桁を数え上げる (Nested Flatten)

VBA for Excel (2003)

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
Sub Main()
  n = Val(InputBox(""))
  m = 0
  p = 0
  Do
    Range("A1").Offset(p) = m
    If m = n Then
      Exit Do
    End If
    l = Len(Str(m)) - 2
    m = m + 10 ^ l
    p = p + 1
  Loop
End Sub

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]