example.ee

# include $"header.ee"

# print(file_name, " ", :boolstr(false), " ", :boolstr(true), "\n");

global primes = [2, 3, 5, 7, 11, 13, 17, 19];
global gech = "gech";

global array = [primes.0, [primes.1]];
global copy_element = array.1; # there's still no array.0.n; like syntax.
print(copy_element);
__print("Hello!\n");

print(to_string(50), " ",
      to_string("50"),
      "\n");

print(to_int(50), " ",
      to_int("50"),
      "\n");

global test_data = to_string((1 bls 10)); # 2 ^ 10

__print(test_data, "\n");
print(test_data, "\n");

print((5 bls 9), " ", (2 brs 5), (2 bxor 3), "\n");

print("current platform: ", platform(), 
      "\n",
      "current cpu architecture: ", arch(), "\n");

enum =
  Undefined,
  String,
  Decimal,
  Array
;

f :type_of_to_string =
 global __data = type_of($0);

 if __data equal_to String =
  return "string";
 ; elif __data equal_to Decimal =
  return "decimal";
 ; elif __data equal_to Array =
  return "array";
 ;

 return "";
;

print(type_of(50), " ",
      type_of("50"), " ",
      type_of(["50"]), " ",
      type_of(30 + 20), " ",
      type_of(), " ",
      :type_of_to_string(50), " ",
      :type_of_to_string("50"), " ",
      :type_of_to_string(["50"]), " ",
      :type_of_to_string(30 + 20), " ",
      :type_of_to_string(), " ",
      "\n");

print(copy_element, "\n");
print(copy_element.0, "\n");

global x = "";
~x = array.1;

print(x, "\n");

delete "x";

print(x, "\n");

enum =
  Zero,
  One,
  Two,
  Three,
  Four,
  Five,
  Six,
  Seven,
  Eight,
  Nine,
  TheseDigitsAreEnoughForDoingMath
;

if (Zero is_in [Zero, One, Two, Three, Four]) equal_to true =
 print("(Zero is_in [Zero, One, Two, Three, Four]) equal_to true\n");
;

print(Zero, One, Two, Three, Four, Five, Six, Seven, Eight, Nine, "\n");

if (((One equal_to One) and (Two equal_to Two))
    or (Nine equal_to Zero)) equal_to true =
 print("(((One equal_to One) and (Two equal_to Two)) or (Nine equal_to Zero)) equal_to true\n");
;


if (primes.0 + primes.1) equal_to primes.2 =
 print(gech.0 + gech.1 + gech.2 + gech.3 + gech.4 + gech.5, "\n");
;

print(len(primes), " ", len(gech), "\n");

if argc equal_to 1 =
 print(arg_0 + " - file reader\n",
      "--------------------------\n",
      arg_0 + " file\n");
; else =
 if is_file(arg_1) equal_to true =
  global data = read_file(arg_1);
  print(data);
 ; elif path_exists(arg_1) equal_to true =
  print(arg_1 + " seems like not a file\n");
 ; else =
  print(arg_1 + " seems not in this directory\n");
 ;
;

f :split_by_chars =
 global __var_index = 1;
 global __split_keyword = "";
 global __split_result = [];
 global __lock_data = $0;
 global __split_by = $1;

 if type_of(__split_by) equal_to Array =
  loopif __var_index not_equal_to len(__lock_data) + 1 =
   if (__lock_data.(__var_index) is_in __split_by) equal_to true =
    ~__split_result = __split_result + __split_keyword;
    ~__split_keyword = "";
   ; else =
    ~__split_keyword = __split_keyword + __lock_data.(__var_index);
   ;

   ~__var_index = __var_index + 1;
  ;
 ; elif type_of(__split_by) equal_to String =
  loopif __var_index not_equal_to len(__lock_data) + 1 =
   if __lock_data.(__var_index) equal_to __split_by =
    ~__split_result = __split_result + __split_keyword;
    ~__split_keyword = "";
   ; else =
    ~__split_keyword = __split_keyword + __lock_data.(__var_index);
   ;

   ~__var_index = __var_index + 1;
  ;
 ; else =
  loopif __var_index not_equal_to len(__lock_data) + 1 =
   if __lock_data.(__var_index) equal_to " " =
    ~__split_result = __split_result + __split_keyword;
    ~__split_keyword = "";
   ; else =
    ~__split_keyword = __split_keyword + __lock_data.(__var_index);
   ;

   ~__var_index = __var_index + 1;
  ;
 ;

 ~__split_result = __split_result + __split_keyword;

 delete ["__split_keyword",
         "__var_index",
         "__lock_data",
         "__split_by"];

 return __split_result;
;

print(:split_by_chars("Hello dear splitter guy", ["a", "e"]), "\n");

f :split =
 delete ["__var_index",
         "__split_keyword",
         "__split_result",
         "__lock_data"];

 global __var_index = 1;
 global __split_keyword = "";
 global __split_result = [];
 global __lock_data = $0;

 loopif __var_index not_equal_to len($0) + 1 =
  if __lock_data.(__var_index) equal_to " " =
   ~__split_result = __split_result + __split_keyword;
   ~__split_keyword = "";
  ; else =
   ~__split_keyword = __split_keyword + __lock_data.(__var_index);
  ;

  ~__var_index = __var_index + 1;
 ;

 ~__split_result = __split_result + __split_keyword;

 return __split_result;
;

print(:split("Hello dear splitter guy"), "\n");

f :input =
 global var = "";
 global ch = "";

 loopif ch not_equal_to "\n" =
  ~ch = char_input();
  print(ch);
  ~var = var + ch;
 ;

 return var;
;

print(len("Hello world\n"), "\n");
print(abs(-3), " ", abs(0), " ", abs(3), " ", abs(-3.7), " ", abs(3.7), "\n");
print(ceil(3.7), " ", floor(3.7), "\n");
print(log(16, 2), " ", log(0, 0), " ", log(16, 1), "\n");
print(sqrt(16), " ", sqrt(2), " ", sqrt(-1), "\n");
print(pi(), " ", e(), " ", pi() * e(), "\n");
print(to_lower("ENIGNE"), " ",
      to_upper("lang"), " ",
      starts_with("enigne"), " ",
      ends_with("enigne"), " ",
      starts_with("enigne") equal_to ends_with("enigne"), "\n");

if platform() not_equal_to "windows" =
 print("type something: ", :input());

 print("press any key to continue", char_input(), "\n");
;

f :generate =
 global seed      = $0;
 ~seed = ((6364136223846793005 * $0) + 1);
 
 defer =
  delete "seed";
  print("result: "); # will be called after the evaluation of return, then the evaluated value will be returned.
 ;

 return (seed % (($2 - $1) + 1)) + $1;  
;

print(:generate(4, 5, 24), "\n");
global x = :generate(4, 5, 24); # handle_expr() will be called after the first use of x

print(x, "\n");

f :factorial =
 global x = $0;
 global result = 1;

 loopif x not_equal_to 0 =
  ~result = result * x;
  ~x = x - 1;
 ;

 defer =
  delete [
    "x",
    "result"
  ];
 ;

 return result;
;

f :fibonacci =
 if $0 less_than 2 =
  return $0;
 ;
 
 global value = 1;
 global n = $0;
 
 loopif n not_equal_to 0 =
  ~value = value * 1.6180339887498949025257388711906969547271728515625;
  ~n = n - 1;
 ;

 defer =
  delete [
    "value",
    "n"
  ];
 ;

 return round(value / sqrt(5));
;

global x = const_eval(print("Hello world\n"));
global y = const_eval(return(13));
global z = const_eval(13);
global q = const_eval(print(:factorial(5), "\n"));
global __c = const_eval(:factorial(5));
global __f = const_eval(print("output will be assigned to variable f\n"));

print(__c, "\n", __f);

print((y equal_to z), " ", y, " ", z, "\n");

print(:factorial(6), "\n", :fibonacci(11), "\n");

exit();

print("hmmmm\n");