grammars/numerals/ResNumSwedish.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

resource ResNumSwedish = {
  param DForm = ental | ton | tiotal ;
  oper mkTal : Str -> Str -> Str -> {
    s : DForm => Str 
  }
  = \ två -> \ tolv -> \ tjugo -> {
    s = table {
      ental => två ;
      ton => tolv ;
      tiotal => tjugo 
    }
    } ;
  oper regTal : Str -> {
    s : DForm => Str 
  }
  = \ fem -> mkTal fem (fem + "ton")(fem + "tio");
  oper ss : Str -> {
    s : Str 
  }
  = \ s -> {
    s = s 
  } ;
  }