mirror of
https://github.com/LCPQ/quantum_package
synced 2024-11-08 15:13:52 +01:00
15 lines
289 B
OCaml
15 lines
289 B
OCaml
let (/) (a:string) (b:string) = a^"/"^b;;
|
|
|
|
let rec transpose = function
|
|
| [] -> []
|
|
| []::tail -> transpose tail
|
|
| (x::t1)::t2 ->
|
|
let new_head = (x::(List.map List.hd t2))
|
|
and new_tail = (transpose (t1 :: (List.map List.tl t2) ))
|
|
in
|
|
new_head @ new_tail
|
|
;;
|
|
|
|
|
|
|