diff options
| author | Marvin Borner | 2024-03-30 16:54:14 +0100 |
|---|---|---|
| committer | Marvin Borner | 2024-03-30 16:54:14 +0100 |
| commit | 2e0a67b6219052b57a9ca5db666038c31ea0cec9 (patch) | |
| tree | 7353297ad0ec436e3d7c8f6566416c8a150f0897 /samples/rosetta/prime_decomposition.bruijn | |
| parent | da026dcd2f4a2c35dc59afe6dce33c5aaa6df84f (diff) | |
Adds tests for samples
Diffstat (limited to 'samples/rosetta/prime_decomposition.bruijn')
| -rw-r--r-- | samples/rosetta/prime_decomposition.bruijn | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/samples/rosetta/prime_decomposition.bruijn b/samples/rosetta/prime_decomposition.bruijn new file mode 100644 index 0000000..0287889 --- /dev/null +++ b/samples/rosetta/prime_decomposition.bruijn @@ -0,0 +1,11 @@ +:import std/Combinator . +:import std/List . +:import std/Math . + +factors \divs primes + divs y [[&[[&[[3 ⋅ 3 >? 4 case-1 (=?0 case-2 case-3)]] (quot-rem 2 1)]]]] + case-1 4 >? (+1) {}4 empty + case-2 3 : (5 1 (3 : 2)) + case-3 5 4 2 + +main [factors <$> ({ (+42) → (+50) })] |