Anonymous user
Handle a signal: Difference between revisions
→{{header|Perl 6}}: add entry
(Added zkl) |
(→{{header|Perl 6}}: add entry) |
||
Line 542:
^C interrupted after 5.23734092712402 seconds
</pre>
=={{header|Perl 6}}==
We note with glee that the task does not require us to print <em>consecutive</em> integers, so we'll print Fibonacci numbers instead. <tt>:-)</tt>
<lang perl6>signal(Signal::SIGINT).tap: {
note "Took { now - INIT now } seconds.";
exit;
}
for 0, 1, *+* ... * {
sleep 0.5;
.say;
}</lang>
{{out}}
<pre>0
1
1
2
3
5
8
13
21
34
55
89
^CTook 6.3437449 seconds.
Aborted</pre>
=={{header|PHP}}==
| |||