Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

BrowserUk's scratchpad

by BrowserUk (Pope)
on Jun 01, 2004 at 22:28 UTC ( #358718=scratchpad: print w/ replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
    use strict;
    ...
    SetFocus( $w[0] );
    SendKeys( "%{SPACE}M{DOWN}{RIGHT}{DOWN}{RIGHT}{DOWN}{RIGHT}{DOWN}{RIGH
    +T}{DOWN}{RIGHT}{DOWN}{RIGHT}{ENTER}" );;
    
  2. or download this
    10101
    01010
    ...
    00000
    01010
    10101
    
  3. or download this
    [0, 6], [0, 8], [0, 21], [0, 23],
    [2, 6], [2, 8], [2, 21], [2, 23],
    ...
    [25, 6], [25, 8], [25, 21], [25, 23], 
    [27, 6], [27, 8], [27, 21], [27, 23], 
    [29, 6], [29, 8], [29, 21], [29, 23],
    
  4. or download this
    00000
    01010
    ...
    00000
    00000
    10101
    
  5. or download this
    typedef unsigned __int64 U64;
    typedef unsigned   int   U32;
    ...
    C8bits    1708547/s      238%       52%        --      -28%      -48%
    C32bits   2370166/s      369%      111%       39%        --      -27%
    C64bits   3264306/s      545%      191%       91%       38%        --
    
  6. or download this
    1  2  1  2  3  1  3  2  1  2  3  3  1  3  2  1  3  2  3  4  2  1  2  1
    +  2  4  3  2  3  1  2  3  1  3  3  2  1  2  3  1  3  2  1  2    
    1  2  1  2  3  1  3  2  1  2  3  3  1  3  2  1  3  2  3  4  2  1  2  1
    +  2  7  2  3  1  5  1  3  3  2  3  3  1  5  1  2  1  6  6  2  
    
  7. or download this
    1  2  1  2  3  1  3  2  1  2  3  3  1  3  2  1  3  2  3  4  2  1  2  1
    +  2*4+3*2  3  1  2  3  1  3  3  2  1  2  3  1  3  2  1  2    
    1  2  1  2  3  1  3  2  1  2  3  3  1  3  2  1  3  2  3  4  2  1  2  1
    +  2  7  2  3  1  5  1  3  3  2  3  3  1  5  1  2  1  6  6  2  
    
  8. or download this
    1  2  1  2  3  1  3  2  1  2  3  3  1  3  2  1  3  2  3  4  2  1  2  1
    +  2*4+3*2  3  1*2+3*1  3  3  2*1+2*3  1*3+2*1  2    
    1  2  1  2  3  1  3  2  1  2  3  3  1  3  2  1  3  2  3  4  2  1  2  1
    +  2  7  2  3  1  5  1  3  3  2  3  3  1  5  1  2  1  6  6  2  
    
  9. or download this
    #! perl -slw
    use strict;
    ...
    14, 14
    13, 13
    ...
    
  10. or download this
    package Some::Foo; 
    package Some; 
    ...
    $foo->set( 1 );
    print $foo->get();
    
  11. or download this
    #include <stdio.h>
    
    ...
    C:\test>qnan
    -1.#QNAN0
    
  12. or download this
    c:\test>type bitvector.typemap
    U64     UV_T
    ...
            else
            $arg = &PL_sv_undef;
        }
    
  13. or download this
    /*
     * This file was generated automatically by ExtUtils::ParseXS version 
    +2.22 from the
    ...
        XSRETURN_YES;
    }
    
  14. or download this
    C:\test>IDrand62xN 2**20
    main=SCALAR(0x3e8c608) : 131071
    ...
    main=SCALAR(0x4062568) : 131071
    1048576
    0
    
  15. or download this
    U64     UV_T
    
  16. or download this
    #! perl -slw
    use strict; use Config;
    ...
    
    print $v->cntbit();
    
  17. or download this
    C:\test>IDrand62xN 2**31
    validate Stage
    ...
    Can't locate auto/main/tstbit.al in @INC (@INC contains: C:\test\_Inli
    +ne\lib c:/Perl64/site/lib c:/Perl64/lib .) at C:\test\IDrand62xN.pl l
    +ine 84
    
    
  18. or download this
    #! perl -slw
    use strict;
    ...
    
    __END__
    
  19. or download this
    C:\test>JobObj.pl
    validate Stage
    ...
    1
    
    C:\test>
    
  20. or download this
    #include <windows.h>
    #include <stdio.h>
    ...
        printf( "%p\n", (HANDLE)-1 );
        printf( "%p\n", ((HANDLE)((LONG_PTR)-1)) );
    }
    
  21. or download this
    C:\test\lockfree>cl /MT junk.c
    Microsoft (R) C/C++ Optimizing Compiler Version 15.00.21022.08 for x64
    ...
    T_STDIO
        {
            GV *gv = newGVgen(k.obj
    
  22. or download this
    C:\test\lockfree>junk
    FFFFFFFFFFFFFFFF
    ...
    
    my $foo = Some::Foo-,
                ${$ALIAS?\q quad FFFFF
    
  23. or download this
    Windows\v6.1\Include\MAPIWin.h:#define INVALID_HANDLE_VALUE           
    +  ((HANDLE)(-1))
    Windows\v6.1\Include\Pdh.h:#define INVALID_HANDLE_VALUE  ((HANDLE)((LO
    +NG_PTR)-1))
    ...
    #endif /* !defined(newXS_flags) */
    
    #line 141 main  #define INVALID_HANDLE_VALUE ((HANDLE)(LONG_PTR)-1)
    
  24. or download this
    C:\Perl64\packages>tar -zxf Inline-CPP-0.33_001.tar.gz
    
    ...
    Stop.
    
    C:\Perl64\packages\Inline-CPP-0.33_001>
    
  25. or download this
    #include <windows.h>
    #include <stdio.h>
    ...
        printf( "count: %lu time:%.6f\n", s.i, elapsed );
    
    }
    
  26. or download this
    #include <pthread.h>
    #include <stdio.h>
    ...
        printf( "count: %u time:%.6f\n", s.i, elapsed );
        return 0;
    }
    
  27. or download this
    #include <windows.h>
    #include <stdio.h>
    ...
        printf( "count: %lu time:%.6f\n", s.i, elapsed );
    
    }
    
  28. or download this
    #include <pthread.h>
    #include <stdio.h>
    ...
        printf( "count: %u time:%.6f\n", s.i, elapsed );
        return 0;
    }
    
  29. or download this
    #include <windows.h>
    #include <stdio.h>
    ...
        printf( "count: %lu time:%.6f\n", s.i, elapsed );
    
    }
    
  30. or download this
    #include <pthread.h>
    #include <stdio.h>
    ...
        printf( "count: %u time:%.6f\n", s.i, elapsed );
        return 0;
    }
    

Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chanting in the Monastery: (4)
As of 2014-09-21 00:22 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (165 votes), past polls