Skip to content

Instantly share code, notes, and snippets.

@masak

masak/gist:638298

Created October 21, 2010 11:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save masak/638298 to your computer and use it in GitHub Desktop.
Save masak/638298 to your computer and use it in GitHub Desktop.
Download ZIP
a script that shows GC runs in Parrot
Raw
gistfile1.txt
$ perl6 -e 'my $time = now.x; for 1..Inf -> $step { say $step => "#" x (50 * ((my
> $t2 = now.x) - $time)); $time = $t2 }'
1 #########
2 ####
3 ####
4 ####
5 ####
6 ###
7 ##
8 ###
9 ####
10 ###
11 ####
12 ####
13 ###
14 ####
15 ####
16 ###
17 #############################################
18 ###
19 ###
20 ####
21 ###
22 ###
23 ###
24 ###
25 ###
26 ##
27 ###
28 ####
29 ####
30 ###
31 ####
32 ###
33 ###
34 ####
35 ###
36 ##
37 ##
38 ###
39 ###
40 ##
41 ###
42 ####
43 ##
44 ###
45 ###
46 ##
47 ####
48 ###
49 ####
50 ###
51 ###
52 ###
53 ###################################
54 ####
55 ###
56 ##
57 ###
58 ###
59 ##
60 ###
61 ###
62 ###
63 ###
64 ####
65 ###
66 ###
67 ##
68 ##
69 ##
70 ##
71 ##
72 ##
73 ###
74 ###
75 ####
76 ###
77 ####
78 ###
79 ###
80 ##
81 ###
82 ###
83 ###
84 ##
85 ##
86 ###
87 ###
88 ##
89 ###
90 #########################################################
91 ###
92 ###
93 #####
94 #####
95 ####
96 ###
97 ###
98 ##
99 ####
100 ###
101 ####
102 ###
103 #####
104 ##
105 ####
106 ####
107 ####
108 ####
109 ####
110 ###
111 ####
112 ####
113 ####
114 ###
115 ###
116 ###
^C
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment