Re: Can It Be Written In Base X With Only 1s And 0s

This finds your sample, 82000 in a split second:

#! perl -slw
use strict;

sub gen{
    my( $n, $p ) = @_;
    return 1 if $p == 0;
    my @n = gen( $n, $p - 1 );
    my $v = $n**$p;
    return @n, $v, map{ $v + $_ } @n;
}

our $LIMIT //= 10;
our $N //= 5;

my %tests;
for( 3 .. $N ) {
    ++$tests{ $_ } for gen( $_, $LIMIT );
}

$tests{ $_ } == $N-2 and print for sort{ $a <=> $b } keys %tests;

__END__
C:\test>1130506
1
82000
[download]

To go much higher you'd probably have to convert the recursive generator to an iterator to avoid memory problems.

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority". I'm with torvalds on this

In the absence of evidence, opinion is indistinguishable from prejudice. Agile (and TDD) debunked

Comment on Re: Can It Be Written In Base X With Only 1s And 0s Download Code

Replies are listed 'Best First'.
Re^2: Can It Be Written In Base X With Only 1s And 0s by QM (Parson) on Jun 16, 2015 at 10:08 UTC
What is interesting is that on line 17, `$_` is 2 different entities: `for( 3 .. $N ) { ++$tests{ $_ } for gen( $_, $LIMIT ); }` [download] -QM -- Quantum Mechanics: The dreams stuff is made of	[reply] [d/l] [select]
Re^3: Can It Be Written In Base X With Only 1s And 0s by BrowserUk (Patriarch) on Jun 16, 2015 at 10:50 UTC
What is interesting is that on line 17, $_ is 2 different entities: Yes, but both are distinct at their point of use. It's a trick -- if you want to call it that -- that I learned a long time ago from Merlyn. Same variable name but two different scopes in a single line. The value from the outer for loop is passed into gen() and that must be executed before the list is available to the inner for loop, so there is no conflict. With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday' Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". I'm with torvalds on this In the absence of evidence, opinion is indistinguishable from prejudice. Agile (and TDD) debunked	[reply]