Advertisement
Guest User

Untitled

a guest
Jan 19th, 2023
49
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 6 0.26 KB | Source Code | 0 0
  1. sub flattenMap(%map) {
  2.     %map.map(-> $parent {
  3.         if $parent.value ~~ Map {
  4.             # recursive case, flatten
  5.             |flattenMap($parent.value).map({ "{$parent.key}.{.key}" => .value; });
  6.         } else {
  7.             # base case, leaf
  8.             $parent.key => $parent.value;
  9.         }
  10.     });
  11. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement