Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- pmichaud@kiwi:~/p6/rakudo-qrpa$ cat z.pir
- .loadlib 'src/pmc/perl6_group'
- .sub 'main' :main
- .local int N
- .local num t0, t1
- .local pmc p, q
- p = new "ResizablePMCArray"
- q = new "QRPA"
- $P0 = box 'abc'
- $I0 = 0
- p[$I0] = $P0
- q[$I0] = $P0
- N = 10000000
- t0 = time
- loop1:
- unless N > 0 goto done1
- # noop
- $P0 = q[$I0]
- dec N
- goto loop1
- done1:
- t1 = time
- $N0 = t1 - t0
- print "qrpa[$I0] = "
- say $N0
- N = 10000000
- t0 = time
- loop2:
- unless N > 0 goto done2
- $P0 = p[$I0]
- dec N
- goto loop2
- done2:
- t1 = time
- $N0 = t1 - t0
- print " rpa[$I0] = "
- say $N0
- .end
- pmichaud@kiwi:~/p6/rakudo-qrpa$ install/bin/parrot z.pir
- qrpa[$I0] = 0.415733098983765
- rpa[$I0] = 0.345231056213379
Add Comment
Please, Sign In to add comment