From d9cd8758cb8ad959324ba12806364e64f034be63 Mon Sep 17 00:00:00 2001 From: zapashcanon Date: Mon, 7 Oct 2024 16:23:46 +0200 Subject: [PATCH] update test --- test_wasm/.gitignore | 2 ++ test_wasm/clean.sh | 1 - test_wasm/{test.html => index.html} | 0 test_wasm/stuff.ml | 8 ++++++-- 4 files changed, 8 insertions(+), 3 deletions(-) create mode 100644 test_wasm/.gitignore rename test_wasm/{test.html => index.html} (100%) diff --git a/test_wasm/.gitignore b/test_wasm/.gitignore new file mode 100644 index 000000000..50765bef4 --- /dev/null +++ b/test_wasm/.gitignore @@ -0,0 +1,2 @@ +*.wasm +*.wat diff --git a/test_wasm/clean.sh b/test_wasm/clean.sh index 5b43c46fc..7443c30ea 100755 --- a/test_wasm/clean.sh +++ b/test_wasm/clean.sh @@ -1,2 +1 @@ - rm -f *.cmi *.cmx *.o a.out* diff --git a/test_wasm/test.html b/test_wasm/index.html similarity index 100% rename from test_wasm/test.html rename to test_wasm/index.html diff --git a/test_wasm/stuff.ml b/test_wasm/stuff.ml index 8b3a2f9b7..d14ee2c5f 100644 --- a/test_wasm/stuff.ml +++ b/test_wasm/stuff.ml @@ -1,6 +1,10 @@ +let rec fib n = if n < 2 then 1 else fib (n - 1) + fib (n - 2);; let () = - for i = 1 to 5 do + for i = 0 to 35 do + print_string "fib ("; print_int i; - print_string " plop\n" + print_string ") = "; + print_int (fib i); + print_string "\n" done