Re^2: How will you use state declared variables in Perl6?

Replies are listed 'Best First'.
Re^3: How will you use state declared variables in Perl6? by TimToady (Parson) on Nov 05, 2006 at 05:15 UTC
Hmm, why a hash? And why not optimize assuming the current value is already in @seen? Also, declarators need not be separate statements. So I'd probably write it like this: `sub fib (Int $n) { return 1 if $n < 2; state @seen[$n] //= fib($n-1) + fib($n-2); }` [download] I think that may be a little clearer as well. If I wanted to golf it just a bit more I'd say: `sub fib (Int $n) { $n < 2 or state @seen[$n] //= fib($n-1) + fib($n-2); }` [download] If I wanted to golf it a lot more I'd say: `my&fib:={$_<2or state@s[$_]//=fib($_-1)+fib $_-2}` [download]	[reply] [d/l] [select]
Re^4: How will you use state declared variables in Perl6? by BrowserUk (Patriarch) on Nov 05, 2006 at 10:39 UTC
Um. Er...? `pugs>sub fib (Int $n) { return 1 if $n < 2; state @seen[$n] //= fib($n +-1) + fib($n-2); } Internal error while running expression: *** unexpected "[" expecting word character, "::", "=", ":=", "::=", ";" or "}" at <interactive> line 1, column 52` [download] Update: This works though `pugs> sub fib (Int $n) { state @seen; return 1 if $n < 2; @seen[$n] / +/= fib($n-1) + fib($n-2); }; undef pugs> say fib 4; 5 undef pugs> say fib 8; 34 undef pugs> say fib 800; 1121023813016570197539221312040081070329432498024398917379911096096424 +176870242714672419719090010009284331740160122026805305229708722215290 +03044406006693244742562963426 undef` [download] Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal? "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice.	[reply] [d/l] [select]
Re^5: How will you use state declared variables in Perl6? by TimToady (Parson) on Nov 06, 2006 at 06:18 UTC
You must be running an older pugs. In fact, the current (working) version in the pugs repository (r14657) now reads: `sub fib (UInt $n) { (state $seen = [0,1,1]).[$n] //= fib($n-1) + fib($n-2); }` [download] It would also work as `state @seen = 0,1,1` except there's a bug with initializing state variables using a list that causes it to reinitialize every time instead of just the first time, which, while it lets it run, kinda defeats the memoization...	[reply] [d/l]
Re^3: How will you use state declared variables in Perl6? by Juerd (Abbot) on Nov 05, 2006 at 23:50 UTC
My point was that you'd use standard memoization for that, not your own mechanism. In other words: state will (as far as I can estimate) not be used much for memoization, because it's easier to just say "is memoized" or something alike. Juerd # { site => 'juerd.nl', do_not_use => 'spamtrap', perl6_server => 'feather' }	[reply]
Re^4: How will you use state declared variables in Perl6? by TimToady (Parson) on Nov 06, 2006 at 06:07 UTC
That's currently specced as "`is cached`" though I don't believe it's implemented yet. However, even after it's implemented, it's not going to be smart enough from the type signature to know whether an incoming parameter is sparse or dense, and for something like fibonacci an array is going to provide a faster memo cache than a hash is. Maybe the memoizing code can be smart enough to figure that out heuristically, but that's not a sure thing at this point.	[reply]
Re^5: How will you use state declared variables in Perl6? by Juerd (Abbot) on Nov 06, 2006 at 09:32 UTC
I have to admit that I'm dreaming of a code profiler that also tries some optimization strategies, and picks the best for your program. Memoization is already heavily parametrized, and I expect the same things to be possible with "is cached". Perhaps "use a dense array" can be communicated in an argument passed to "is cached"? Juerd # { site => 'juerd.nl', do_not_use => 'spamtrap', perl6_server => 'feather' }	[reply]