Logo

Programming-Idioms

  • Dart
  • Haskell

Idiom #5 Create a 2D Point data structure

Declare a container type for two floating-point numbers x and y

A point as (x, y) cartesian coordinates 
data Point = Point 
  { x :: Double
  , y :: Double 
  }
data Point = Point
  { x :: Double
  , y :: Double
  } deriving (Eq, Ord, Show, Read)

This version contains a deriving statement at the end which automatically writes the equality, ordering, and to and from string functions for this type.
class Point {
  double x, y;
}
class Point {
  double x, y;
  Point(this.x, this.y);
}

With constructor, which you will almost always have.
type Point is
   record
      X : Float;
      Y : Float;
   end record;
New implementation...
< > ⌨
programming-idioms.org 
data Point = Point 
  { x :: Double
  , y :: Double 
  }
data Point = Point
  { x :: Double
  , y :: Double
  } deriving (Eq, Ord, Show, Read)
class Point {
  double x, y;
}
class Point {
  double x, y;
  Point(this.x, this.y);
}
type Point is
   record
      X : Float;
      Y : Float;
   end record;
typedef struct {
  double x;
  double y;
} Point;
type point = {
	x: float;
	y: float;
}
[x y]
(vector-of :double x y)
struct Point{
  double x;
  double y;
};
(double x, double y)
record Point(double x, double y);
struct Point
{
    public double x;
    public double y;
};
class Point
{
    float x;
    float y;
}
struct Point{
    double x;
    double y;
}

    
{x, y}
defmodule Point do
  defstruct x: 0.0, y: 0.0
end
p = [ x: 1.122, y: 7.45 ]

PointAsATuple = {X, Y}.
-module(points).
-export([new/2, x/1, y/1]).

-opaque point() :: #{x => float(), y => float()}.
-export_type([point/0]).

-spec new(float(), float()) -> point().
new(X, Y) -> #{x => X, y => Y}.

-spec x(point()) -> float().
x(#{x := X}) -> X.

-spec y(point()) -> float().
y(#{y := Y}) -> Y.
PointAsAMap = #{x => X, y => Y}.
type point
  real :: x
  real :: y
end type point
module x
  type point
  real :: x, y
  end type point
end module x

type Point struct {
    x, y float64
}
class Point{
  double x
  double y
}
const point = { x: 1, y: 2 };
var p = { x: 1.122, y: 7.45 };
record Point<T extends Number>(T x, T y) {}
public record Point(double x, double y) { }
class Point{
  double x;
  double y;
}
class Point { double x, y; }
data class Point(val x: Float, val y: Float)
(defstruct point
  (x 0.0d0 :type double-float)
  (y 0.0d0 :type double-float))
point = { x = 123, y = 456 }
typedef struct {
  double x,y;
} NSPoint;
class Point
{
    /** @var float */
    public $x = 0.0;

    /** @var float */
    public $y = 0.0;
}
Type
  TPoint = Record
    x : Double;
    y : Double;
  End;
my $point = { x => 1, y => 2 };
my $point = [ 1.5, 6.3 ];
Point = namedtuple("Point", "x y")
@dataclass
class Point:
    x: float
    y: float
point = {'x': 1.2, 'y': 3.4}
class Point:
    def __init__(self, x, y):
        self.x, self.y = x, y
point = dict(x=1.2, y=3.4)
Point = Struct.new(:x, :y)
struct Point(f64, f64);
struct Point {
    x: f64,
    y: f64,
}
case class Point(x: Float, y: Float)
(define (make-point x y)
  (cons x y))
(define (point-x p)
  (car p))
(define (point-y p)
  (cdr p))
Object subclass: #Point
	instanceVariableNames: 'x y'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Graphics-Primitives'
Structure Point
    Public x As Double
    Public y As Double
End Structure