Моя первая программа на языке q: преобразует положительное целое число в последовательность символов (запись числа).Код: [Выделить]q)x:18873; L:"012345679"; res:""; while[x>0; res:res,L[x mod 10]; x:x div 10]; reverse res
Не знаю, как векторизовать без while : (
"18873"
Подскажите, как улучшить решение!
"0123456789"@ 1_ reverse {x mod 10} each {x div 10} scan 18873
или на K:"0123456789"@ 1_|{ !10}'{_ x % 10}\ 18873