LINUX.ORG.RU

История изменений

Исправление beastie, (текущая версия) :

Ну что, по краткости моё решение ещё никто не переплюнул? ;)

      step←{⍺[+/⍵∘.≥⍺]}
      1 2 3 5 10 step ⍳15
1 2 3 3 5 5 5 5 5 10 10 10 10 10 10
PS: APL рулит :D

Исправление beastie, :

Ну что, по краткости моё решение ещё никто не переплюнул? ;)

      step←{⍺[+/⍵∘.≥⍺]}
      1 2 3 5 10 step ⍳15
1 2 3 3 5 5 5 5 5 10 10 10 10 10 10
PS: APL рулит :D

Исходная версия beastie, :

Ну что, по краткости моё решение ещё никто не переплюнул? ;)

      step←{⍺[+/⍵∘.≥⍺]}
      1 2 3 5 10 step ⍳15
1 2 3 3 5 5 5 5 5 10 10 10 10 10 10