http://www.perlmonks.org?node_id=927888

BrowserUk has asked for the wisdom of the Perl Monks concerning the following question:

Why doesn't this work (ie. produce output)?

#! perl -slw use strict; use Inline C => Config => BUILD_NOISY => 1; use Inline C => <<'END_C', NAME => 'rand64fast', CLEAN_AFTER_BUILD => + 0; void rnd( int n ) { dSP; static __int64 y = 2463534242; EXTEND( SP, n ); while( --n ) { y ^= y << 13; y ^= y >> 17; y ^= y << 5; mPUSHi( (IV)y ); } return; } END_C print for rnd( 100 );

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.