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