Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
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
         A             B
    +---------+    +---------+
    ...
    |_________|    |         |
    |    X    |    |         |
    +---------+    +---------+
    
  2. or download this
    Iter *next( Iter *this  ) {
    
    ...
         free( this );                                        // free stac
    +k
         return NULL;                                        // return;
    }
    
  3. or download this
    Fetch by Addr & Fetch by Name took 22.830025 seconds for 11881376 item
    +s in a 16777216 sized BiMap
    Fetch by Addr & Fetch by Name took 18.515575 seconds for 11881376 item
    +s in a 16777216 sized BiMap
    
    Fetch by Addr & Fetch by Name took 48.118981 seconds for 23762752 item
    +s in a 33554432 sized BiMap
    Fetch by Addr & Fetch by Name took 34.267198 seconds for 23762752 item
    +s in a 33554432 sized BiMap
    
  4. or download this
    mov     rax, qword ptr gs:[ ( offsetof(TEB, TlsSlots) + PL_thr_key ) *
    + 8 ]
    
  5. or download this
    mov     rax, qword ptr gs:[ PL_thr_context ];
    
  6. or download this
    mov     rax, PL_thr_context;
    mov     rax, qword ptr gs:[ rax ];
    
  7. or download this
    #! perl -slw
    use strict;
    ...
    
    Took 1.720699072 seconds
    Undefined subroutine &main::Test2 called at C:\test\GetContext.pl18 li
    +ne 29.
    
  8. or download this
    TYPEMAP
    const char *    T_PV
    U64        T_UV
    U8        T_UV
    U8 *        T_PV
    
  9. or download this
    static void XS_main_bar(register PerlInterpreter* my_perl , CV* cv); 
    static void XS_main_bar(register PerlInterpreter* my_perl , CV* cv)
    ...
            } while (0); 
        } while (0);
    }
    
  10. or download this
    #! perl -slw
    package BiMap; use strict; #use Config;
    ...
    my $bm = $t->join;
    pp $bm; Dump( $bm ); <STDIN>;
    $bm->dump( 1 );
    
  11. or download this
    TYPEMAP
    const char *    T_PV
    ...
    # char* having the name of the package for the blessing.
    O_OBJECT
        sv_setref_pv( $arg, (char *)CLASS, (void*)$var );
    
  12. or download this
    use Inline C => Config => BUILD_NOISY => 1, CCFLAGS => q[-c  -I"C:/tes
    +t" -DDEBUG=0 -W3 /Ge /RTC1 /RTCc /RTCs /RTCu /Zi -DWIN32 -D_CONSOLE -
    +DNO_STRICT -DHAVE_DES_FCRYPT -DWIN64 -DUSE_SITECUSTOMIZE -DPRIVLIB_LA
    +ST_IN_INC -DPERL_IMPLICIT_CONTEXT -DPERL_IMPLICIT_SYS -DUSE_PERLIO -D
    +PERL_MSVCRT_READFIX -nologo  "-IC:\Perl64\lib\CORE"];
    
  13. or download this
      Starting "make" Stage
    
    ...
    Stop.
    
    A problem was encountered while attempting to compile and install your
    + Inline
    
  14. or download this
    #! perl -slw
    use strict;
    ...
    copy clusters from 'clusters.dat' delimiter ' ';
    copy queries  from 'queries.dat'  delimiter ' ';
    
  15. or download this
           Table "public.clusters"
      Column  |     Type      | Modifiers
    ...
    
    
    test=#
    
  16. 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}" );;
    
  17. or download this
    10101
    01010
    ...
    00000
    01010
    10101
    
  18. 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],
    
  19. or download this
    00000
    01010
    ...
    00000
    00000
    10101
    
  20. 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%        --
    
  21. 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  
    
  22. 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  
    
  23. 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+byInt );
        free( bm-addr;
    ...
    
    copy clusters from But, if you look carefully, there are only two poss
    +ible A2*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  
    
  24. or download this
    #! perl -slw
    use strict;
    ...
    14, 14
    13, 13
    ...
    
  25. or download this
    package Some::Foo; 
    package Some; 
    ...
    $foo->set( 1 );
    print $foo->get();
    
  26. or download this
    #include <stdio.h>
    
    ...
    C:\test>qnan
    -1.#QNAN0
    
  27. or download this
    c:\test>type bitvector.typemap
    U64     UV_T
    ...
            else
            $arg = &PL_sv_undef;
        }
    
  28. or download this
    /*
     * This file was generated automatically by ExtUtils::ParseXS version 
    +2.22 from the
    ...
        XSRETURN_YES;
    }
    
  29. or download this
    C:\test>IDrand62xN 2**20
    main=SCALAR(0x3e8c608) : 131071
    ...
    main=SCALAR(0x4062568) : 131071
    1048576
    0
    
  30. or download this
    U64     UV_T
    
  31. or download this
    #! perl -slw
    use strict; use Config;
    ...
    
    print $v->cntbit();
    
  32. or download this
    C:\test>IDrand62xN 2**31
    validate Stage
    ...
    Can't locate aut, doesno/main/tstbit.al in @INC (@INC contains: C:\tes
    +t\_Inline\lib c:/Perl64/site/lib c:/Perl64/lib .) at C:\test\IDrand62
    +xN.pl line 84
    
    
  33. or download this
    #! perl -slw
    use strict;
    ...
    
    __END__
    

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: (13)
As of 2015-03-27 12:53 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When putting a smiley right before a closing parenthesis, do you:









    Results (606 votes), past polls