The output under j804 for comparson.
iinitial 2566272
241920
A 2568064
445
SEVEN 2568064
241920
A 2568064
445
SEVEN 2568064
final 2564480
initial 2566272
(27x12)(20x12)(13x14)(7x10)(1x12)A
A1 2568064
(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
SEVEN1 2568064
(27x12)(20x12)(13x14)(7x10)(1x12)A
A1 2568064
(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
SEVEN1 2568064
final 2564480
initial 2566272
(27x12)(20x12)(13x14)(7x10)(1x12)A
A2 2566272
(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
SEVEN2 2566272
(27x12)(20x12)(13x14)(7x10)(1x12)A
A2 2566272
(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
SEVEN2 2566272
final 2564480
Сб, 10 дек 2016, bill lam написал(а):
> I tested with the script at the script at the bottom,
>
> initial 3370624
> 241920
> A 5338112
> 445
> SEVEN 5338112
> 241920
> A 7435264
> 445
> SEVEN 7435264
> final 7434112
> initial 7433856
> (27x12)(20x12)(13x14)(7x10)(1x12)A
> A1 7435264
> (25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
> SEVEN1 7435264
> (27x12)(20x12)(13x14)(7x10)(1x12)A
> A1 7435264
> (25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
> SEVEN1 7435264
> final 7434112
> initial 7433856
> (27x12)(20x12)(13x14)(7x10)(1x12)A
> A2 7433856
> (25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
> SEVEN2 7433856
> (27x12)(20x12)(13x14)(7x10)(1x12)A
> A2 7433856
> (25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN
> SEVEN2 7433856
> final 7434112
>
> For Pascal's f2, each iteration increased memory without release.
>
> Compared the initial and final values for the last 2 control
> tests, apparently echo is not responsible for memory leak.
> The for_loop structure add a little overhead but should be
> released after iteration.
>
> Perhaps the culprit is recursion inside iteration loop.
>
> the script is,
>
> foo=: 3 : 0
> echo 'initial ',":7!:0''
> for_i. i.2 do.
> echo f2 '(27x12)(20x12)(13x14)(7x10)(1x12)A'
> echo 'A ', ":7!:0''
> echo f2 '(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN'
> echo 'SEVEN ', ":7!:0''
> end.
> ''
> )
> bar=: 3 : 0
> echo 'initial ',":7!:0''
> for_i. i.2 do.
> echo '(27x12)(20x12)(13x14)(7x10)(1x12)A'
> echo 'A1 ', ":7!:0''
> echo '(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN'
> echo 'SEVEN1 ', ":7!:0''
> end.
> ''
> )
> foobar=: 3 : 0
> echo 'initial ',":7!:0''
>
> echo '(27x12)(20x12)(13x14)(7x10)(1x12)A'
> echo 'A2 ', ":7!:0''
> echo '(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN'
> echo 'SEVEN2 ', ":7!:0''
>
> echo '(27x12)(20x12)(13x14)(7x10)(1x12)A'
> echo 'A2 ', ":7!:0''
> echo '(25x3)(3x3)ABC(2x3)XY(5x2)PQRSTX(18x9)(3x2)TWO(5x7)SEVEN'
> echo 'SEVEN2 ', ":7!:0''
>
> ''
> )
> f2 =: 3 : 0
> o =. 0
> while. (# y) > e =. ')' i.~ y do.
> b =. '(' i:~ e {. y
> i =. ". every 'x' cut y{~ b + >:i. <:e -b
> o =. o + b + f2 i expand (>:e )}. y
> y =. ({.i) }. (>:e) }. y
> end.
> o + #y
> )
>
> expand =: */@:[ $ {.@[ {. ]
>
> foo''
> echo 'final ',":7!:0''
> bar''
> echo 'final ',":7!:0''
> foobar''
> echo 'final ',":7!:0''
>
> --
> regards,
> ====================================================
> GPG key 1024D/4434BAB3 2008-08-24
> gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
> gpg --keyserver subkeys.pgp.net --armor --export 4434BAB3
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
gpg --keyserver subkeys.pgp.net --armor --export 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
