import { typedFnType } from "./types.js";
import { Char, GenericType, Type } from "../primitives/types.js";
import { Int } from "../primitives/types.js";
import { makeGeneric } from "../generics/generics.js";
import { lsType } from "./types.js";
import { Dynamic } from "../primitives/dynamic.js"

// 'normal' implementation
export const emptyList = {l:[]};
// const emptyListType = makeGeneric(a => lsType(() => a));
export const get = ls => i => ls.l[i];
export const put = ls => i => elem => ({l: ls.l.with(Number(i), elem)});
export const push = ls => elem => ({l:ls.l.concat([elem])});
export const map = ls => fn => ({ l: ls.l.map(elem => fn(elem)) });
export const length = ls => ls.l.length;
export const fold = ls => callback => initial => {
  let acc = initial;
  for (let i=0; i<ls.l.length; i++) {
    acc = callback(acc)(ls.l[i]);
  }
  return acc;
}

export const String = lsType(() =>Char); // alias
export const Module = lsType(() =>Dynamic);

export const ModuleList = {l:[
  // // Type -> Type
  // ...typedFnType(lsType, fnType =>
  //   fnType
  //     /* in  */ (Type)
  //     /* out */ (Type)
  // ),

  // // [a]
  // // {i: emptyList, t: emptyListType},
  // // {i: emptyListType, t: GenericType},

  // // [a] -> Int -> a
  // ...typedFnType(get, fnType =>
  //   makeGeneric(a =>
  //     fnType
  //       /* in  */ (() => lsType(() => a))
  //       /* out */ (() => fnType
  //         /* in  */ (() => Int)
  //         /* out */ (() => a)
  //       )), GenericType),

  // // [a] -> Int -> a -> [a]
  // ...typedFnType(put, fnType =>
  //   makeGeneric(a =>
  //     fnType
  //       /* in  */ (() => lsType(() => a))
  //       /* out */ (() => fnType
  //         /* in  */ (() => Int)
  //         /* out */ (() => fnType
  //           /* in  */ (() => a)
  //           /* out */ (() => lsType(() => a))
  //         )
  //       )), GenericType),

  // // [a] -> a -> [a]
  // ...typedFnType(push, fnType =>
  //   makeGeneric(a =>
  //     fnType
  //       (() => lsType(() => a))
  //       (() => fnType
  //         (() => a)
  //         (() => lsType(() => a))
  //       )
  //   ), GenericType),

  // // [a] -> (a -> b) -> [b]
  // ...typedFnType(map, fnType =>
  //   makeGeneric((a, b) =>
  //     fnType
  //       (() => lsType(() => a))
  //       (() => fnType
  //         (() => fnType(() => a)(() => b))
  //         (() => lsType(() => b))
  //       )), GenericType),
]};