#title: notação perl

#author: todos...

#let:

perl{
  $a=33;
  sub f1{$_[1]*100} };

maxima{b(x):= x+1};

s d  = perl{ f(3,5)} ;

s d1  = perl{ $a } ;

##f m1 = {{ matrix([2,3],[3,4]) }};

f m = {{ #d }};

## f det = determinant(#m);


#question

o nosso d é #d ...

o nosso d1 é #d1 ...

% o nosso det é # det ...

% o nosso m1 é $$ # m1 $$ ...

o nosso  m é $$  #m $$ ...

#result
#resolution
#sugestion

#perl

sub f { my($a,$b) = @_;
   return "matrix([$a,$b],[$b,$a])";
}