22
\$\begingroup\$

A Gaussian integer is a complex number whose real and imaginary parts are integers.

Gaussian integers, like ordinary integers, can be represented as a product of Gaussian primes, in a unique manner. The challenge here is to calculate the prime constituents of a given Gaussian integer.

Input: a Gaussian integer, which is not equal to 0 and is not a unit (i.e. 1, -1, i and -i can not be given as inputs). Use any sensible format, for example:

  • 4-5i
  • -5*j+4
  • (4,-5)

Output: a list of Gaussian integers, which are prime (i.e. no one of them can be represented as a product of two non-unit Gaussian integers), and whose product is equal to the input number. All numbers in the output list must be non-trivial, i.e. not 1, -1, i or -i. Any sensible output format can be used; it should not necessarily be the same as input format.

If the output list has more than 1 element, then several correct outputs are possible. For example, for input 9 the output can be [3, 3] or [-3, -3] or [3i, -3i] or [-3i, 3i].

Test cases, (taken from this table; 2 lines per test case)

2
1+i, 1-i

3i
3i

256
1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i,1+i

7+9i
1+i,2−i,3+2i

27+15i
1+i,3,7−2i

6840+585i
-1-2i, 1+4i, 2+i, 3, 3, 6+i, 6+i

Built-in functions for factoring Gaussian integers are not allowed. Factoring ordinary integers by built-in functions is allowed though.

\$\endgroup\$
  • \$\begingroup\$ Should 3i return as 3,i, or 3i? \$\endgroup\$ – Value Ink Jul 12 '17 at 22:05
  • \$\begingroup\$ 3i is the correct answer because i is not a prime. I have updated the test case to make it clearer. \$\endgroup\$ – anatolyg Jul 12 '17 at 22:14
  • \$\begingroup\$ is -3-2j, 2-1j, -1-1j a correct answer for factorization of 7+9j ? \$\endgroup\$ – mdahmoune Jul 12 '17 at 23:04
  • 4
    \$\begingroup\$ According to Wolfram Alpha, 6840+585i has the wrong list of factors, as 5 is not a Gaussian prime. Instead, it returns -1-2i, 1+4i, 2+i, 3, 3, 6+i, 6+i. Source \$\endgroup\$ – Value Ink Jul 12 '17 at 23:34
  • 1
    \$\begingroup\$ FYI, 256=(1+i)**16 not (1+i)**8 because 256=2**8=(2i)**8 and 2i=(1+i)**2 \$\endgroup\$ – Shieru Asakoto Feb 23 '18 at 5:59
4
\$\begingroup\$

Jelly, 61 55 bytes

Ḟ,Ċ1ḍP
Ḟ,ĊḤp/-,1p`¤×€×1,ıFs2S€⁸÷ÇÐfỊÐḟ1;Ṫð,÷@\ḟ1
Ç€F$ÐL

Try it online! (Header and Footer formats the output)

-6 bytes thanks to @EricTheOutgolfer

How it Works

Ḟ,Ċ1ḍP  - helper function: determines if a complex number is Gaussian
Ḟ,Ċ       - real, complex components
   1ḍ     - set each to if 1 divides them
     P    - all

Ḟ,ĊḤp/-,1p`¤×€×1,ıFs2S€⁸÷ÇÐfỊÐḟ1;Ṫð,÷@\ḟ1 - helper: outputs a factor pair of the input
Ḟ,ĊḤp/                   - creates a list of possible factors a+bi, a,b>=0
      -,1p`¤×€           - extend to the other three quadrants 
              ×1,ıFs2S€  - convert to  actual complex numbers 
⁸÷                       - get quotient with input complex number
  ÇÐf                    - keep only Gaussian numbers (using helper function)
     ỊÐḟ                 - remove units (i,-i,1,-1)
        1;               - append a 1 to deal with primes having no non-unit factors
          Ṫð,÷@\         - convert to a factor pair
                ḟ1       - remove 1s
Ç€F$ÐL
Ç€      - factor each number
   $    - and
  F     - flatten the list
    ÐL  - until factoring each number and flattening does not change the list
\$\endgroup\$
5
\$\begingroup\$

Ruby, 258 256 249 246+8 = 264 257 254 bytes

Uses the -rprime flag.

Geez, what a mess.

Uses this algorithm from stackoverflow.

->c{m=->x,y{x-y*eval("%d+%di"%(x/y).rect)};a=c.abs2.prime_division.flat_map{|b,e|b%4<2?(1..e).map{k=(2..d=b).find{|n|n**(~-b/2)%b==b-1}**(~-b/4)%b+1i;d,k=k,m[d,k]while k!=0;c/=d=m[c,d]==0?d:d.conj;d}:(c/=b<3?(b=1+1i)**e:b**e/=2;[b]*e)};a[0]*=c;a}

Try it online!

\$\endgroup\$
5
\$\begingroup\$

Python 2, 250 239 223 215 bytes

e,i,w=complex,int,abs
def f(*Z):
 if Z:
	z=Z[0];q=i(w(z));Q=4*q*q
	while Q>0:
 	 a=Q/q-q;b=Q%q-q;x=e(a,b)
 	 if w(x)>1:
		y=z/x
		if w(y)>1 and y==e(i(y.real),i(y.imag)):f(x,y);z=Q=0
 	 Q-=1
	if z:print z
	f(*Z[1:])

Try it online!

  • -11 bytes when using Multiple Function Arguments
  • -2²*² bytes when using one variable to parse couples (a,b)
  • -2³ bytes when mixing tabs and spaces: thanks to ovs

Some explanation recursively decompose a complex to two complexes until no decomposition is possible...

\$\endgroup\$
  • \$\begingroup\$ Well, it times out in TIO on larger inputs, but it's shorter than my Ruby answer... for now. Also, def f(Z,s=[]) should save you a character \$\endgroup\$ – Value Ink Jul 13 '17 at 1:48
  • \$\begingroup\$ @ValueInk yes it's slower than your ruby solution \$\endgroup\$ – mdahmoune Jul 13 '17 at 1:56
  • 2
    \$\begingroup\$ Interesting pattern with the indentation... \$\endgroup\$ – Erik the Outgolfer Jul 13 '17 at 8:37
  • \$\begingroup\$ @ValueInk Multiple Function Arguments saves more bytes :) \$\endgroup\$ – mdahmoune Jul 13 '17 at 9:31
  • 1
    \$\begingroup\$ You can reduce your byte count by mixing tabs and spaces \$\endgroup\$ – ovs Jul 13 '17 at 18:27
3
\$\begingroup\$

Rust - 212 bytes

use num::complex::Complex as C;fn f(a:&mut Vec<C<i64>>){for _ in 0..2{for x in -999..0{for y in 1..999{for i in 0..a.len(){let b=C::new(x,y);if(a[i]%b).norm_sqr()==0&&(a[i]/b).norm_sqr()>1{a[i]/=b;a.push(b)}}}}}}

I'm not 100% sure if this works 100% correct, but it seems to be correct for a large range of tests. This isn't smaller than Jelly, but at least it is smaller than the interpreted languages (so far). It also seems to be faster and can work through inputs of a billion magnitude in less than a second. For example 1234567890+3141592650i factors as (-9487+7990i)(-1+-1i)(-395+336i)(2+-1i)(1+1i)(3+0i)(3+0i)(4+1i)(-1+1i)(-1+2i), (click here to test on wolfram alpha)

This started out as the same idea as naive factoring of integers, to go through each number below the integer in question, see if it divides, repeat until done. Then, inspired by other answers, it morphed... it repeatedly factors items in a vector. It does this a good number of times, but not 'until' anything. The number of iterations has been chosen to cover a good chunk of reasonable inputs.

It still uses "(a mod b) == 0" to test whether one integer divides another (for Gaussians, we use builtin Rust gaussian modulo, and consider "0" as norm == 0), however the check for 'norm(a/b) != 1' prevents dividing "too much", basically allowing the resulting vector to be filled with only primes, but not taking any element of the vector down to unity (0-i,0+i,-1+0i,1+0i) (which is prohibited by the question).

The for-loop limits were found through experiment. y goes from 1 up to prevent divide-by-zero panics, and x can go from -999 to 0 thanks to the mirroring of Gaussians over the quadrants (I think?). As regarding the limitations, the original question did not indicate a valid range of input/output, so a "reasonable input size" is assumed... (Edit... however i am not exactly sure how to calculate at which number this will begin to "fail", i imagine there are Gaussian integers that are not divisible by anything below 999 but are still surprisingly small to me)

Try the somewhat ungolfed version on play.rust-lang.org

\$\endgroup\$
3
\$\begingroup\$

Perl 6, 141 124 bytes

Thanks to Jo King for -17 bytes

sub f($_){{$!=0+|sqrt .abs²-$^a²;{($!=$_/my \w=$^b+$a*i)==$!.floor&&.abs>w.abs>1>return f w&$!}for -$!..$!}for ^.abs;.say}

Try it online!

\$\endgroup\$
  • \$\begingroup\$ how does this work? is the floor a custom built modulo? \$\endgroup\$ – don bright May 8 at 23:33
  • 1
    \$\begingroup\$ @donbright The floor part is checking if $_/w (i.e. the current factor divided by a number) is a whole number \$\endgroup\$ – Jo King May 9 at 0:07
2
\$\begingroup\$

Pyth, 54 51 45 42 36 bytes

 .W>H1cZ
h+.aDf!%cZT1>#1.jM^s_BM.aZ2

Try it online!

Accepts input in the form 1+2j - purely real or imaginary numbers can omit the other component (e.g. 9, 2j). Output is a newline-separated list of complex numbers, in the form (1+2j), with purely imaginary numbers omitting the real part.

This uses simple trail division, generating all gaussian integers with magnitude greater than 1 and less than the current value, plus the value itself. These are filtered to keep those that are a factor of the value, and the smallest by magnitude is chosen as the next prime factor. This is output, and the value is divided by it to produce the value for the next iteration.

Also, Pyth beating Jelly 😲 (I don't expect it to last though)

 .W>H1cZ¶h+.aDf!%cZT1>#1.jM^s_BM.aZ2ZQ   Implicit: Q=eval(input())
                                         Newline replaced with ¶, trailing ZQ inferred
 .W                                  Q   While <condition>, execute <inner>, with starting value Q
   >H1                                   Condition function, input H
   >H1                                     Is magnitude of H > 1?
                                           This ensures loop continues until H is a unit, i.e. 1, -1, j, or -j)
      cZ¶h+.aDf!%cZT1>#1.jM^s_BM.aZ2Z    Inner function, input Z
                                .aZ        Take magnitude of Z

                             _BM           Pair each number in 0-indexed range with its negation
                            s              Flatten
                           ^       2       Cartesian product of the above with itself
                        .jM                Convert each pair to a complex number
                      #                    Filter the above to keep those element where...
                     > 1                   ... the magnitude is greater than 1 (removes units)
              f                            Filter the above, as T, to keep where:
                 cZT                         Divide Z by T
                %   1                        Mod real and imaginary parts by 1 separately
                                             If result of division is a gaussian integer, the mod will give (0+0j)
               !                             Logical NOT - maps (0+0j) to true, all else to false
                                           Result of filter are those gaussian integers which evenly divide Z
           .aD                             Sort the above by their magnitudes
          +                         Z      Append Z - if Z is ±1±1j, the filtered list will be empty
         h                                 Take first element, i.e. smallest factor
        ¶                                  Print with a newline
      cZ                                   Divide Z by that factor - this is new input for next iteration
                                         Output of the while loop is always 1 (or -1, j, or -j) - leading space suppesses output
\$\endgroup\$
  • \$\begingroup\$ this is very interesting but it appears to timeout on 6840+585j \$\endgroup\$ – don bright May 8 at 23:31
  • \$\begingroup\$ @donbright It does on TIO, as it has a processing limit of 60s. It will work with more time, so if you are running it locally it should work without issue. \$\endgroup\$ – Sok May 9 at 7:25

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.