#!/usr/bin/perl -w

use Math::Gsl::Sf qw(:all);
use strict;
use Benchmark;
$|++;

my $sf = new Math::Gsl::Sf;

timethese(50000,{ run1 => sub { for( 1 .. 50) {Math::Gsl::Sf::gamma($_)}},
		  run2 => sub{ for( 1 .. 50) {$sf->gamma($_)}},
		  run3 => sub{ for( 1 .. 50) {gamma($_)} },
		  run4 => sub{ for( 1 .. 50) {Math::Gsl::Sf::sf_gamma($_)}} } 
	); 

