Microcodes
by Pall Thayer
Microcodes are very small code-based artworks. Each one is a fully contained work of art. On this page you can see contributed modifications of the original Microcodes that can be seen here.

Original code:

Enter your name (will be displayed):

Here you can enter extra info, such as warnings if the code can cause damage:

Enter code (must be complete and runnable):

The world could end today
13. April 2010 
#!/usr/bin/perl
$secs_per_day = ((24*60)*60);
($curr_secs, $curr_mins, $curr_hours) = (localtime)[0..2];
$curr_total_secs = (($curr_hours*60)*60)+($curr_mins*60)+$curr_secs;
$likelyhood = sprintf("%.2f", (($secs_per_day-$curr_total_secs)/$secs_per_day)*100);
print "The chances that the world could end today are $likelyhood%\n";
Leila
#!/usr/bin/perl 
$secs_per_day = ((24*60)*60); 
($curr_secs, $curr_mins, $curr_hours) = (localtime)[0..2]; 
$curr_total_secs = (($curr_hours*60)*60)+($curr_mins*60)+$curr_secs; 
$likelyhood = sprintf("%.2f", (($secs_per_day-$curr_total_secs)/$secs_per_day)*100); 
print "The chances that the world could end today are $likelyhood%\n";
M.B
#!/user/bin/perl
&skateboarding = (board,wheel,truck);
while(day == beginnig)
{
   start.skateboarding();
}

back to Microcodes