ScenarioDirect.hs

module LinkedList.ScenarioDirect where

import Data.Records.Yarl.LinkedList
import LinkedList.Type

sumDirect :: LinkedListRecord -> Int
sumDirect (Field a0 :> Field a1 :> Field a2 :> Field a3 :> Field a4 :> Field a5 :> Field a6 :> Field a7 :> Field a8 :> Field a9 :> Field a10 :> Field a11 :> Field a12 :> Field a13 :> Field a14 :> Field a15 :> Field a16 :> Field a17 :> Field a18 :> Field a19 :> Field a20 :> Field a21 :> Field a22 :> Field a23 :> Field a24 :> Field a25 :> Field a26 :> Field a27 :> Field a28 :> Field a29 :> Field a30 :> Field a31 :> Field a32 :> Field a33 :> Field a34 :> Field a35 :> Field a36 :> Field a37 :> Field a38 :> Field a39 :> Field a40 :> Field a41 :> Field a42 :> Field a43 :> Field a44 :> Field a45 :> Field a46 :> Field a47 :> Field a48 :> Field a49 :> Field a50 :> Field a51 :> Field a52 :> Field a53 :> Field a54 :> Field a55 :> Field a56 :> Field a57 :> Field a58 :> Field a59 :> Field a60 :> Field a61 :> Field a62 :> Field a63 :> RNil) =
  a0 + a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10 + a11 + a12 + a13 + a14 + a15 + a16 + a17 + a18 + a19 + a20 + a21 + a22 + a23 + a24 + a25 + a26 + a27 + a28 + a29 + a30 + a31 + a32 + a33 + a34 + a35 + a36 + a37 + a38 + a39 + a40 + a41 + a42 + a43 + a44 + a45 + a46 + a47 + a48 + a49 + a50 + a51 + a52 + a53 + a54 + a55 + a56 + a57 + a58 + a59 + a60 + a61 + a62 + a63