From 7bfc78b122ad9cbb65eed16f7de4d4021547c2a8 Mon Sep 17 00:00:00 2001 From: Marvin Borner Date: Sat, 23 Mar 2024 19:18:16 +0100 Subject: Some Project Euler solutions --- samples/euler/007.bruijn | 11 +++++++++++ 1 file changed, 11 insertions(+) create mode 100644 samples/euler/007.bruijn (limited to 'samples/euler/007.bruijn') diff --git a/samples/euler/007.bruijn b/samples/euler/007.bruijn new file mode 100644 index 0000000..6d05451 --- /dev/null +++ b/samples/euler/007.bruijn @@ -0,0 +1,11 @@ +# TODO: Write faster primes function + +:import std/Combinator . +:import std/Math . +:import std/List . + +solve dec → (\index primes) + +:test ((solve (+6)) =? (+13)) ([[1]]) + +main [solve (+10001)] -- cgit v1.2.3