- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
N = 5
$mas = (1..N).to_a
$c = 0
def generate(l = 0)
if l == N-1
for i in 0..N-1 do
print("#{$mas[i]} ")
end
$c += 1; print("\n")
else
for i in l..N-1 do
t = $mas[l]; $mas[l] = $mas[i]; $mas[i] = t;
generate(l+1)
t = $mas[l]; $mas[l] = $mas[i]; $mas[i] = t;
end
end
return $c
end
p generate(0);
xXx_totalwar 09.01.2011 19:56 # +1
degenerate более к месту
malleus 12.01.2011 15:42 # 0
guest 22.04.2011 00:25 # 0
Вполне очень даже. Все чистенько и понятно.
И я даже знаю где ты код взял.
guest 22.04.2011 04:43 # 0
В общественном сортире, amarite?
guest 16.09.2011 20:24 # 0
guest 16.09.2011 20:25 # 0
akostrikov 22.07.2013 12:17 # 0
Из однобуквенных переменных l одна из самых худших. Очень часто она похожа на единицу.