Logo

Programming-Idioms

  • D
  • Perl

Idiom #77 Complex number

Declare a complex x and initialize it with value (3i - 2). Then multiply it by i.

The complex x is moved on the 2D plane when multiplied by i 
use Math::Complex;
my $x = 3*i - 2;
$x *= i;

Simple version: clear, but not efficient. It starts with i, then uses a multiplication and a subtraction to build the complex number.
use Math::Complex;
my $x = cplx(-2, 3);
$x *= i;

This version is efficient (fast)
import std.complex;
auto x = complex(-2, 3);
x * complex(0, 1);
with Ada.Numerics.Complex_Types;
declare
   use Ada.Numerics.Complex_Types;
   X : Complex := (Re => -2.0, Im => 3.0);
begin
   X := X * i;
end;
New implementation...
< > ⌨
deleplace 
my $x = 3*i - 2;
$x *= i;
my $x = cplx(-2, 3);
$x *= i;
auto x = complex(-2, 3);
x * complex(0, 1);
declare
   use Ada.Numerics.Complex_Types;
   X : Complex := (Re => -2.0, Im => 3.0);
begin
   X := X * i;
end;
float complex _x = -2 + 3 * I;

_x *= I;
using namespace std::complex_literals;
	
auto x = 3i - 2.;
x *= 1i;

var x = new Complex(-2, 3);
x *= Complex.ImaginaryOne;
  complex :: x
  x = (-2,3)
  x = x * (0,1)

x := 3i - 2
x *= 1i
x = (0 :+ 1) * ((0 - 2) :+ 3)
let i = ( 0 :+ 1 ) ; x = 3 * i - 2 in x * i
var x = math.complex(-2, 3);
x = math.multiply(x, math.i);
Complex x = new Complex(-2.0, 3.0);
x = x.multiply(Complex.I);
(let ((x #c(-2 3)))
  (* x #c(0 1)))
var
  C: Complex;
begin
  C := 3*i - 2;
end.
x = 3j-2
y = x * 1j
x = 3i - 2
x *= 1i
let mut x = Complex::new(-2, 3);
x *= Complex::i();
(define x -2+3i)
(display (* x 0+1i))