ubigraph: an interactive 3D graph creator

A few days ago I read a funny post on HN. A guy was presenting some clojure code that used ubigraphto produce 3d navigable graphs.

To make ubigraph portable and interoperable with many languages, they present the app as an independent window (embedable, I hope) with its own process that acts as a XML-RPC server, so if you don't have an specific API for your language, you can use plain XML-RPC calls.

I've written a simple fibonacci function with a callback that draws the flow of the calculations.
Here's the code, and a (static) image of the graph.

	#!/usr/bin/perl
	#raimon grau . raimonster at gmail dot com
	use Frontier::Client;
	use Data::Dumper;
	#my $a = $client->call('ubigraph.new_vertex');
	#my $b = $client->call('ubigraph.new_vertex');
	#$client->call('ubigraph.new_edge', $a, $b)
	=head2 fib
	Fibonacci function
	=over 4
	=item Arguments: fib(n,cb,parent). number, callback to be called at every step, parent node.
	=back
	=cut
	sub fib {
	my $num= shift;
	my $cb= shift;
	my $parent= shift;
	my $node = $cb->($num,$parent);
	return 0 if $num==0;
	return 1 if $num==1;
	return fib($num-1,$cb,$node) + fib($num-2,$cb,$node);
	}
	#callbacks sharing state(client)
	{
	my $client;
	sub init {
	$client = Frontier::Client->new( url => 'http://127.0.0.1:20738/RPC2');
	$client->call('ubigraph.clear', 0);
	}
	sub paint {
	my ($num,$parent) = @_;
	my $a = $client->call('ubigraph.new_vertex');
	$client->call('ubigraph.new_edge',$a,$parent) if (defined $parent);
	$client->call('ubigraph.set_vertex_attribute',$a,'label',' '.$num);
	return $a;
	}
	}
	#main
	print "numero?\n";
	init();
	my $input = <STDIN>;
	chomp $input;
	print fib($input,\&paint,undef);
	#The app shows how the program builds the tree flux of computing fibonacci numbers

view raw ubigraph.pl hosted with ❤ by GitHub

To See how memoizing works, I've modified the code a bit using Memoize and a normalizer function and now we see how the number of steps is O(n).

	#!/usr/bin/perl
	#The app shows how the program builds the tree flux of computing fibonacci numbers
	use Frontier::Client;
	use Data::Dumper;
	use Memoize;
	=head2 fib
	Fibonacci function
	=over 4
	=item Arguments
	=back
	=cut
	sub normalize_fib {
	my $num= shift;
	my $cb= shift;
	my $parent= shift;
	return "$num";
	}
	sub fib {
	my $num= shift;
	my $cb= shift;
	my $parent= shift;
	my $node = $cb->($num,$parent);
	return 0 if $num==0;
	return 1 if $num==1;
	return fib($num-1,$cb,$node) + fib($num-2,$cb,$node);
	}
	#callbacks sharing state(client)
	{
	my $client;
	sub init {
	$client = Frontier::Client->new( url => 'http://127.0.0.1:20738/RPC2');
	$client->call('ubigraph.clear', 0);
	}
	sub paint {
	my ($num,$parent) = @_;
	my $a = $client->call('ubigraph.new_vertex');
	$client->call('ubigraph.new_edge',$a,$parent) if (defined $parent);
	$client->call('ubigraph.set_vertex_attribute',$a,'label',' '.$num);
	return $a;
	}
	}
	#main
	print "which fib number you want to calculate?\n";
	init();
	memoize 'fib', NORMALIZER=>'normalize_fib';
	my $input = <STDIN>;
	chomp $input;
	print fib($input,\&paint,undef);

view raw memofib.pl hosted with ❤ by GitHub