my @data = qw( C gcc 154.6171 2 Ocaml ocaml 124.4804 2 C++ g++ 105.6944 2 Eiffel se 98.7194 5 Ocaml ocamlb 93.0624 2 SML mlton 91.8259 2 Clean clean 90.5943 5 Perl perl 79.6822 2 Haskell ghc 77.4361 4 Pike pike 77.1981 2 Oberon-2 oberon2 77.0360 5 Lua lua 75.2653 3 Scheme bigloo 75.1351 3 S-Lang slang 73.4023 5 Python python 73.0627 2 Ruby ruby 72.6933 2 Lisp newlisp 69.7620 6 Common_Lisp cmucl 65.5113 2 Forth gforth 65.2669 4 Awk mawk 64.9447 8 Java gcj 64.3719 3 Python psyco 63.3687 3 Nice nice 63.3655 2 Scheme chicken 63.1898 6 Awk gawk 63.1771 8 SML smlnj 62.8468 2 Java java 62.3177 3 Common_Lisp sbcl 61.1720 2 Tcl tcl 60.9442 5 Erlang erlang 60.8645 0 Java kaffe 60.4781 3 Erlang hipe 58.9117 0 Scheme guile 57.9570 2 Java sablevm 57.4272 3 Smalltalk gst 56.6310 4 Java gij 56.3162 3 Lisp rep 51.1753 6 Dylan gwydion 48.7750 5 Icon icon 47.1262 9 Ada gnat 41.8272 9 Scheme mzscheme 39.3508 7 PHP php 39.3355 12 Mercury mercury 38.9003 9 Bash bash 38.3828 14 Scheme mzc 36.9159 7 Emacs_Lisp xemacs 35.3363 11 Mozart/Oz oz 33.0343 8 C# csharp 31.2426 2 Scheme stalin 29.2409 16 ElastiC elastic 14.8057 18 Objective_C objc 12.5165 23 Prolog gprolog 4.0209 23 Ciao_Prolog ciao 2.3282 24 Haskell curry 0.8528 26 ); sub FORMATING { $^A = ""; formline(shift,@_); return $^A; } print " # Language Implementation Score\n" ; my $format = qq`@>> @<<<<<<<<<<<< @<<<<<<<<<<<< @>>>>>>>`; my $c ; for(my $i = 0 ; $i <@data ; $i +=4) { ++$c ; my $form = &FORMATING($format , $c , @data[$i..($i+2)] ) ; print "$form\n" ; }