/* 

  Enumerations (Rosetta code) )in Picat.

  http://rosettacode.org/wiki/Enumerations
  """
  Create an enumeration of constants with and without explicit values. 
  """

  This program was created by Hakan Kjellerstrand, hakank@gmail.com
  See also my Picat page: http://www.hakank.org/picat/

*/

% import v3_utils.
% import util.
% import cp.


main => go.

% {{trans|Prolog}}
go =>
  write_fruit_name(2) ,
  nl.
go => true.

go2 =>
  Fruits = new_map([1=apple,2=banana,3=cherry]),
  println(Fruits.get(2)).

fruit(apple,1).
fruit(banana,2).
fruit(cherry,4).
 
write_fruit_name(N) :-
	fruit(Name,N),
	printf("It is %w\n", Name).