diff options
| -rw-r--r-- | challenge-333/hvukman/f#/333_p2.fs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-333/hvukman/f#/333_p2.fs b/challenge-333/hvukman/f#/333_p2.fs new file mode 100644 index 0000000000..1b6209313d --- /dev/null +++ b/challenge-333/hvukman/f#/333_p2.fs @@ -0,0 +1,18 @@ +// 333 part 2 + +let input_1 = [| 1;0; 2; 3; 0; 4; 5; 0 |] +let input_2 = [| 1; 2; 3 |] +let input_3 = [| 1; 2; 3; 0 |] +let input_4 = [| 0; 0; 0; 0 |] +let input_5 = [| 1; 2; 0; 3; 4 |] +let inputs_2 = [ input_1; input_2; input_3; input_4; input_5 ] + +// if 0 double else x; then truncuate to length of x +let dup (x:int array) = Array.collect (fun x -> match x with + |0 -> [|0;0|] + |_ -> [|x|] ) x |> Array.take (Array.length x) + +for i in (inputs_2) do + for j in dup(i) do + printf "%i " j + printf "%s\n" "" |