Permalink
Browse files

DCE05 in perl

  • Loading branch information...
1 parent 65cbe06 commit 060278c6de33cb46dcabe05c1449bd3c65d7bc80 @retupmoca committed Aug 12, 2012
Showing with 6 additions and 0 deletions.
  1. +6 −0 practice/easy/dce05.pl
View
@@ -0,0 +1,6 @@
+<>;
+
+while(my $n = <>){
+ print 2**int(log($n)/log(2));
+ print "\n";
+}

0 comments on commit 060278c

Please sign in to comment.