I’d want to get rid of one @ in the chain at the expense of introducing rank <@( [: "."0 @ ; <@":"0)\ *: >: i. 15
Am 21.08.20 um 20:22 schrieb [email protected]:
… and depending on what you want, there might be a better approach: parse the numbers, raze the strings, itemize the characters, and interpret each as a digit. <@( [: ". @ ,. @ ; <@":"0)\ *: >: i. 15 On Fri, 21 Aug 2020 12:46:24 -0500 Skip Cave <[email protected]> wrote:Definitions: ea =: each rab =: ]#~[:-.' '=] NB. Remove all blanks. sep =:10 #.^:_1 ] NB. separate digits. NB. Generate increasing lengths of integer squares & store in m: ]m=.1{.ea n,\ ea {sq=.*:n=.>:i.15 │1│1 4│1 4 9│1 4 9 16│1 4 9 16 25│1 4 9 16 25 36│1 4 9 16 25 36 49│1 4 9 16 25 36 49 64│1 4 9 16 25 36 49 64 81│1 4 9 16 25 36 49 64 81 100│1 4 9 16 25 36 49 64 81 100 121│1 4 9 16 25 36 49 64 81 100 121 144│1 4 9 16 25 36 49 64 81 100 121 144 169│1 4 9 16... datatype each m │integer│integer│integer│integer│integer│integer│integer│integer│integer│integer│integer│integer│integer│integer│integer│ NB. Convert each box to characters, remove blanks, convert back to integers, separate the digits, store in p, & display: ]p=.sep ea ". ea rab ea":ea ,ea m │1│1 4│1 4 9│1 4 9 1 6│1 4 9 1 6 2 5│1 4 9 1 6 2 5 3 6│1 4 9 1 6 2 5 3 6 4 9│1 4 9 1 6 2 5 3 6 4 9 6 4│1 4 9 1 6 2 5 3 6 4 9 6 4 8 1│1 4 9 1 6 2 5 3 6 4 9 6 4 8 1 1 0 0│1 4 9 1 6 2 5 3 6 4 9 6 4 8.11328 0 0 0 0 0 0 0│1 4 9 1 6 2 5 3 6 4 9 6 4 8.11328 0 0 0... NB. UhOh! there are floating-point numbers in p! should all be integers! datatype each p │integer│integer│integer│integer│integer│integer│integer│integer│integer│integer│floating│floating│floating│floating│floating│ NB. What is with the floating point numbers 8.11328 in p? They should be all integers! Also, is there a better way to generate increasing length sets of a vector? JVERSION Engine: j902/j64avx2/windows Beta-e: commercial/2020-08-14T11:56:28 Library: 9.02.05 Qt IDE: 1.8.7/5.12.7(5.12.7) Platform: Win 64 Installer: J902 install InstallPath: c:/users/skip/j902 Contact: www.jsoftware.com Skip Cave Cave Consulting LLC ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
-- ---------------------- mail written using NEO neo-layout.org ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
