… and maybe you want to use rab2 =: -.&' '
Am 21.08.20 um 20:02 schrieb [email protected]:
]m=:<\ *: >: i.15 (sep @ ". @ (,&'x') @ rab @ ": @ ,)each m Appends a 'x' after each number string, so it will get interpreted as an extended number. Otherwise big numbers get converted to floats, e.g. 149162536496481100121 -> 1.49163e20. 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
