RosettaCodeData/Task/Call-a-foreign-language-function/Stata/call-a-foreign-language-function-6.stata

. mata: Hilbert(4)
[symmetric]
                 1             2             3             4
    +---------------------------------------------------------+
  1 |            1                                            |
  2 |           .5   .3333333333                              |
  3 |  .3333333333           .25            .2                |
  4 |          .25            .2   .1666666667   .1428571429  |
    +---------------------------------------------------------+