Handle a signal: Difference between revisions
Content added Content deleted
(Added zkl) |
(→{{header|Perl 6}}: add entry) |
||
Line 542: | Line 542: | ||
^C interrupted after 5.23734092712402 seconds |
^C interrupted after 5.23734092712402 seconds |
||
</pre> |
</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}}== |
=={{header|PHP}}== |