1. 程式人生 > >[Erlang 0128] Term sharing in Erlang/OTP 下篇

[Erlang 0128] Term sharing in Erlang/OTP 下篇

's4'/0 =
    %% Line 24
    fun () ->
        let <L> =
            %% Line 25
            call 'lists':'seq'
                (1, 6)
        in  let <L2> =
                %% Line 26
                [L|[L|[L|[L|[]]]]]
            in  let <_cor5> =
                    %% Line 27
                    call 'erts_debug':'size'
                        (L)
                in  let <_cor4> =
                        %% Line 27
                        call 'erts_debug':'flat_size'
                            (L)
                    in  let <_cor3> =
                            %% Line 27
                            call 'erts_debug':'size'
                                (L2)
                        in  let <_cor2> =
                                %% Line 27
                                call 'erts_debug':'flat_size'
                                    (L2)
                            in  %% Line 27
                                call 'erlang':'display'
                                    ({{_cor5,_cor4},{_cor3,_cor2}})