+ return ( $pretty, prettyprint_pv_no_cache($nb, @pvs) );
+}
+
+sub prettyprint_pv {
+ my ($pos, @pvs) = @_;
+
+ my $cachekey = join('', @pvs);
+ if (exists($pos->{'prettyprint_cache'}{$cachekey})) {
+ return @{$pos->{'prettyprint_cache'}{$cachekey}};
+ } else {
+ my @res = prettyprint_pv_no_cache($pos->{'board'}, @pvs);
+ $pos->{'prettyprint_cache'}{$cachekey} = \@res;
+ return @res;
+ }