Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
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;
    ...
    copy clusters from 'clusters.dat' delimiter ' ';
    copy queries  from 'queries.dat'  delimiter ' ';
    
  2. or download this
           Table "public.clusters"
      Column  |     Type      | Modifiers
    ...
    
    
    test=#
    
  3. 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}" );;
    
  4. or download this
    10101
    01010
    ...
    00000
    01010
    10101
    
  5. 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],
    
  6. or download this
    00000
    01010
    ...
    00000
    00000
    10101
    
  7. 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%        --
    
  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
    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  
    
  10. 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  
    
  11. or download this
    #! perl -slw
    use strict;
    ...
    14, 14
    13, 13
    ...
    
  12. or download this
    package Some::Foo; 
    package Some; 
    ...
    $foo->set( 1 );
    print $foo->get();
    
  13. or download this
    #include <stdio.h>
    
    ...
    C:\test>qnan
    -1.#QNAN0
    
  14. or download this
    c:\test>type bitvector.typemap
    U64     UV_T
    ...
            else
            $arg = &PL_sv_undef;
        }
    
  15. or download this
    /*
     * This file was generated automatically by ExtUtils::ParseXS version 
    +2.22 from the
    ...
        XSRETURN_YES;
    }
    
  16. or download this
    C:\test>IDrand62xN 2**20
    main=SCALAR(0x3e8c608) : 131071
    ...
    main=SCALAR(0x4062568) : 131071
    1048576
    0
    
  17. or download this
    U64     UV_T
    
  18. or download this
    #! perl -slw
    use strict; use Config;
    ...
    
    print $v->cntbit();
    
  19. 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
    
    
  20. or download this
    #! perl -slw
    use strict;
    ...
    
    __END__
    
  21. or download this
    C:\test>JobObj.pl
    validate Shttp://www.sqlite.org/c3ref/intro.html|LibSQLitetage
    ...
    1
    
    C:\test>
    
  22. or download this
    #include <windows.h>
    #include <stdio.h>
    ...
        printf( "%p\n", (HANDLE)-1 );
        printf( "%p\n", ((HANDLE)((LONG_PTR)-1)) );
    }
    
  23. 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
    
  24. or download this
    C:\test\lockfree>junk
    FFFFFFFFFFFFFFFF
    ...
    
    my $foo = Some::Foo-,
                ${$ALIAS?\q quad FFFFF
    
  25. 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)
    
  26. or download this
    C:\Perl64\packages>tar -zxf Inline-CPP-0.33_001.tar.gz
    
    ...
    Stop.
    
    C:\Perl64\packages\Inline-CPP-0.33_001>
    
  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;
    }
    
  31. or download this
    #include <windows.h>
    #include <stdio.h>
    ...
        printf( "count: %lu time:%.6f\n", s.i, elapsed );
    
    }
    
  32. 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 making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2014-12-19 01:47 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (70 votes), past polls