From 0b8d272292ca3f7fdb44efac65f012b484d962a2 Mon Sep 17 00:00:00 2001 From: A404M Date: Thu, 15 May 2025 13:37:07 +0330 Subject: better copy management in ast --- code/main.felan | 65 --------------------------------------------------------- 1 file changed, 65 deletions(-) (limited to 'code/main.felan') diff --git a/code/main.felan b/code/main.felan index 81862df..e2c056b 100644 --- a/code/main.felan +++ b/code/main.felan @@ -1,68 +1,3 @@ -/* -@import("basic.felan"); - -print :: (value:[]u8)->void{ - i :u64 = 0; - while i < value.length { - putc value[i]; - i += @cast(1,u64); - } -}; - -print :: (value:i64)->void{ - value := value; - str : [20]u8 = undefined; - i :u64= 19; - while { - str[i] = @cast(value % 10,u8) + '0'; - i -= @cast(1,u64); - value /= 10; - value != 0; - } {} - - j :u64= i+@cast(1,u64); - while j < @cast(20,u64) { - putc str[j]; - j += @cast(1,u64); - } -}; - -println :: (value:i64)->void{ - print(value); - putc '\n'; -}; - -println :: ()->void{ - putc '\n'; -}; - -main :: () -> void { - stones := 6; - player := 1; - while stones != 0 { - c := choose_ai(stones); - print("player: "); - print(player); - print(" ---------\n"); - println(stones); - println(c); - - if (stones == 2 || stones == 1) && stones == c { - print("player: "); - print(player); - print(" won\n"); - } - - stones -= c; - - player = (if (player == 1) 2 else 1); - } -}; - -choose_ai :: (stones_left:i64) -> i64 { - return (if (stones_left % 3 == 0) 1 else stones_left % 3); -}; -*/ @import("basic.felan"); main :: () -> void { -- cgit v1.2.3