normalize-languages 0.3.2

Tree-sitter language support and dynamic grammar loading
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

module Main exposing (main)

import Html exposing (Html, div, text)
import Html.Attributes exposing (class)
import List exposing (filter, foldl)

type Shape
    = Circle Float
    | Rectangle Float Float

type alias Point =
    { x : Float
    , y : Float
    }

-- Square a number
square : Float -> Float
square n =
    n * n

distance : Point -> Point -> Float
distance p1 p2 =
    let
        dx =
            p2.x - p1.x

        dy =
            p2.y - p1.y
    in
    sqrt (square dx + square dy)

area : Shape -> Float
area shape =
    case shape of
        Circle r ->
            pi * r * r

        Rectangle w h ->
            w * h

classify : Int -> String
classify n =
    if n < 0 then
        "negative"

    else if n == 0 then
        "zero"

    else
        "positive"

sumEvens : List Int -> Int
sumEvens xs =
    foldl (\x acc -> if modBy 2 x == 0 then acc + x else acc) 0 xs

main : Html msg
main =
    div [ class "app" ]
        [ text (classify -3)
        , text (String.fromFloat (distance { x = 3, y = 4 } { x = 0, y = 0 }))
        ]