1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
n=16
s="1"
s1=""
s2="1\n"
while n > 0 do
i=0
while i < s.length do
k=0
a=s[i,1];
while a==s[i,1] do
k+=1
i+=1
end
s1+=k.to_s+a
end
s=s1
s2+=s1+"\n"
s1=""
n-=1
end
puts s2
n=16
s="1"
s1=""
s2="1\n"
while n > 0 do
i=0
while i < s.length do
k=0
a=s[i,1];
while a==s[i,1] do
k+=1
i+=1
end
s1+=k.to_s+a
end
s=s1
s2+=s1+"\n"
s1=""
n-=1
end
puts s2
Refactorings
No refactoring yet !
April 22, 2008,
April 22, 2008 08:51,
permalink
No rating.
Login to rate!
1
2
3
4
5
puts str = '1';
15.times do
puts str.gsub!(/(\d)\1*/) { |e| e.size.to_s + e[0].chr }
end
1
11
21
1211
111221
312212
Please, Continue the sequence