Автор Тема: K&Q  (Прочитано 2584 раз)

trurl

  • Full Member
  • ***
  • Сообщений: 133
    • Просмотр профиля
K&Q
« : Январь 28, 2012, 08:22:54 am »
Моя первая программа на языке q: преобразует положительное целое число в последовательность символов (запись числа).
q)x:18873; L:"012345679"; res:""; while[x>0; res:res,L[x mod 10]; x:x div 10]; reverse res
"18873"
Не знаю, как векторизовать без while : (
Подскажите, как улучшить решение!

"0123456789"@ 1_ reverse {x mod 10} each {x div 10} scan 18873или на K:
"0123456789"@ 1_|{ !10}'{_ x % 10}\ 18873