code/main.felan


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67

byte :: i8;
ubyte :: u8;

short :: i16;
ushort :: u16;

int :: i32;
uint :: u32;

long :: i64;
ulong :: u64;

// short_float :: f16;
float :: f32;
double :: f64;
long_double :: f128;

usize :: u64;

t :: f(7);

f :: (a:i64)->i64{
  if a == 0 || a == 1
    return 0;
  else
    return f(a-1)+f(a-2);
};

main :: () -> void {
  a :i64 = 12;
  b :u64 = 34;
  print_rev(t);
  print_rev(a);
  print_rev(b);
  print_rev();
  c : ()->void = a;
  c();
  a();
};

a :: () -> void {
  putc 'x';
};

print_rev :: ()-> void {
  putc 'c';
};

print_rev :: (value:u64) -> void {
  putc 'a';
  value := value;
  while {
    putc '0' + @cast(value % 10,u8);
    value /= 10;
    value != 0;
  } {}
};

print_rev :: (value:i64) -> void {
  putc 'b';
  value := value;
  while {
    putc '0' + @cast(value % 10,u8);
    value /= 10;
    value != 0;
  } {}
};