PARI's commands

[CRGreathouse]

Originally Posted by science_man_88

apply* only if you only go up to index b1, or b2 for each.

Yes, but you can go up to b1 rather than #b1digs.

[science_man_88]

Originally Posted by CRGreathouse

Yes, but you can go up to b1 rather than #b1digs.

I got it redefined without using b1digs or b2digs, it's still a incredibly slow script lol. Can't do convert(233,4,10) in under 4 minutes in the older version.

[science_man_88]

(12:20)>convert(101,2,4)
  ***   user interrupt after 12mn, 42,922 ms.

incredibly slow indeed. don't think my CPU dropped below 50% and I think it hit past 99% once.

okay it works well for some like:

(13:06)>convert(11111,2,34)
%150 = "v[]"
(13:06)>##
  ***   last result computed in 0 ms.

because 34 is greater than 2^5-1 it is speedy but anything <= 31 for b2 may be very slow.

I figured out why lol I forgot a statement of a=a\b2 in the until loop.

now I find it doesn't work out properly.

I figured out I changed a formula and forgot to change it back lol.

[science_man_88]

Well I now know why because a\b2 ==0 is wrong this is always fun. It should of been a/b2 not a\b2 I got it working now if only i can get rid of the [] in the answers. I did that stuff in my original code I do that and I have a converter that should work not only to binary but between any matchups from base 2 to 36. though I should add a check of that and if they are equal spit back the string at them lol.

[science_man_88]

convert(numb1,b1,b2)={
  my(B=["0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"],a=0,c="");
  numb1=Vec(Str(numb1));
  forstep(y=#numb1,1,-1,
    for(x=0,b1,
      if(numb1[y]==B[x],
        a=a+(x-1)*b1^(#numb1-y)
      )
    )
  );
  until(a/b2==0,
    c=concat(B[a%b2+1],c);
    a=a\b2
  );
  c
};

when is it time for a new thread if it's needed lol.

this doesn't do better than binary for to base 2 conversion at least from base 36 lol.

[science_man_88]

Originally Posted by science_man_88

convert(numb1,b1,b2)={
  my(B=["0","1","2","3","4","5","6","7","8","9","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"],a=0,c="");
  numb1=Vec(Str(numb1));
  forstep(y=#numb1,1,-1,
    for(x=1,b1,
      if(numb1[y]==B[x],
        a=a+(x-1)*b1^(#numb1-y)
      )
    )
  );
  until(a/b2==0,
    c=concat(B[a%b2+1],c);
    a=a\b2
  );
  c
};

when is it time for a new thread if it's needed lol.

this doesn't do better than binary for to base 2 conversion at least from base 36 lol.

another change lol

[kar_bon]

Another solution for this task:

\\ Convert number given in base1 into base2
convert(number,base1,base2)={
  my(B=Vecsmall("0123456789abcdefghijklmnopqrstuvwxyz"),a=0,c="");
  number=Vecsmall(number);
  forstep(y=1,#number,1,
    a*=base1;
    a+=number[y]-48-(number[y]>=97)*39;
  );
  until(a/base2==0,
    c=concat(Strchr(B[a%base2+1]),c);
    a=a\base2;
  );
c
};

[science_man_88]

Originally Posted by kar_bon

Another solution for this task:

\\ Convert number given in base1 into base2
convert(number,base1,base2)={
  my(B=Vecsmall("0123456789abcdefghijklmnopqrstuvwxyz"),a=0,c="");
  number=Vecsmall(number);
  forstep(y=1,#number,1,
    a*=base1;
    a+=number[y]-48-(number[y]>=97)*39;
  );
  until(a/base2==0,
    c=concat(Strchr(B[a%base2+1]),c);
    a=a\base2;
  );
c
};

I just tested this and i get:

(21:54)>convert1(1111111,2,10)
%15 = "1111024"

I've highlighted in red what i think is throwing it off compared to the previous.

[kar_bon]

Originally Posted by science_man_88

I just tested this and i get:

(21:54)>convert1(1111111,2,10)
%15 = "1111024"

I've highlighted in red what i think is throwing it off compared to the previous.

Sorry, forgot to mention:

<number> has to be given as a string!

so convert1("1111111",2,10) will do the trick!

Advantage:

You can insert any 'number' in any base from 2 to 35 and convert in any of these bases.

For example:
convert1("1j3",20,10) gives "783"
convert1("783",10,16) gives "30f"

or in one step
convert1("1j3",20,16) gives "30f"

[science_man_88]

Originally Posted by kar_bon

Sorry, forgot to mention:

<number> has to be given as a string!

so convert1("1111111",2,10) will do the trick!

Advantage:

You can insert any 'number' in any base from 2 to 35 and convert in any of these bases.

For example:
convert1("1j3",20,10) gives "783"
convert1("783",10,16) gives "30f"

or in one step
convert1("1j3",20,16) gives "30f"

it can't do base 36 ? mine did.

wonder how fast each is.
tested both with the equivalent of 36^577-1 and they came up equal.

[CRGreathouse]

Originally Posted by science_man_88

it can't do base 36 ? mine did.

Sure it can, try

convert("3731151013004108312", 10, 36)