向量表达式和模式
#[ 经验 0 , ..., 经验 n个 ]
#[ 拍打 0 , ..., 拍打 n个 ]
Or-patterns公司
( 阿帕特 1 | ... | 阿帕特 n个 )
乐趣 (f) ( “y” | “是” ) = 真实的
| (f) _ = 假
乐趣 (f) “y” = 真实的
| (f) “是” = 真实的
| (f) _ = 假
引用和反引用
高阶模块
作为结构组件的函数。
签名 信号 =
信号发生器
类型 t吨
val值 一 : t吨
函子 F类 ( X(X) : 信号发生器 类型 秒
val值 b条 : 秒
结束 ) : 信号发生器 val值 x个 : t吨 * X(X) . 秒 结束
结束
结构 S公司 : 信号 =
结构
类型 t吨 = 整数
val值 一 = 三
函子 F类 ( X(X) : 信号发生器 类型 秒 val值 b条 : 秒 结束 ) = 结构 val值 x个 = ( 一 , X(X) . b条 ) 结束
结束
签名 单体 =
信号发生器
类型 t吨
val值 加 : t*t(吨) -> t吨
val值 e(电子) : t吨
结束 ;
(*函子签名声明*)
funsig公司 戳 ( 结构 M(M) : 单体
结构 N个 : 单体 ) = 单体
函子 方形 ( 结构 X(X) : 单体
函子 生产 : 产品 ): 单体 =
生产 ( 结构 M(M) = X(X)
结构 N个 = X(X) );
funsig公司 滑稽的 ( 喘鸣 我 : 六倍x射线光电子能谱 我 ) = 六倍x射线光电子能谱 funsig公司 滑稽的 (规格)= 六倍x射线光电子能谱
|
函子 当前生产 ( M(M) : 单体 ) =
结构
函子 产品1 ( N个 : 单体 ) : 单体 =
结构
类型 t吨 = M(M) . t吨 * N个 . t吨
val值 e(电子) = ( M(M) . e(电子) , N个 . e(电子) )
乐趣 加 (( 平方米 , n1个 ),( 平方米 , 氮气 ))=( M(M) . 加 ( 平方米 , 平方米 ), N个 . 加 ( n1个 , 氮气 ))
结束 ;
结束
结构 IntMonoid公司 =
结构
类型 t吨 = 整数
val值 e(电子) = 0
val值 加 = ( 操作 + ): 整数*整数 -> 整数
结束 ;
结构 打临时工 = 当前生产 ( IntMonoid公司 );
函子 产品Int = 打临时工 . 产品1 ;
函子 当前生产 ( M(M) : 单体 ) ( N个 : 单胚的 ) : 单体 =
结构
类型 t吨 = M(M) . t吨 * N个 . t吨
val值 e(电子) = ( M(M) . e(电子) , N个 . e(电子) )
乐趣 加 (( 平方米 , n1个 ),( 平方米 , 氮气 ))=( M(M) . 加 ( 平方米 , 平方米 ), N个 . 加 ( n1个 , 氮气 ))
结束 ;
函子 产品Int = 当前生产 ( IntMonoid公司 );
funsig公司 滑稽的 ( 标准 1 ) ... ( 标准 n个 ) = 六倍x射线光电子能谱 函子 滑稽的 ( 标准 1 ) ... ( 标准 n个 ) = strexp公司 函子 功能1 = 功能2 ( 参数 1 ) ... ( 参数 n个 ) 结构 喘鸣 = 滑稽的 ( 参数 1 ) ... ( 参数 n个 )
标准 ::= 身份证件 : 六倍x射线光电子能谱 | 规格 参数 ::= strexp公司 | 12月
函子 功能1 = 功能2
fctexp公司 ::= 让 12月 在里面 fctexp公司 结束
函子 滑稽的 = 让 12月 在里面 fctexp公司 结束
函子 fctid公司 ( 标准 1 ) ... ( 标准 n个 ) = strexp公司
函子 F类 ( 标准 1 ) = 结构 函子 %催化裂化% ( 标准 2 ) ... ( 标准 n个 ) = strexp公司 结束
结构 S公司 = F类 ( 参数 1 ) ... ( 参数 n个 ) 函子 克 = F类 ( 参数 1 ) ... ( 参数 n个 )
地方的 结构 %隐藏% = F类 ( 参数 1 ) 在里面 结构 S公司 = %隐藏%.% 催化裂化% ( 参数 2 ) ... ( 参数 n个 ) 结束
地方的 结构 %隐藏% =F( 参数 1 ) ... ( 参数 n个 ) 在里面 函子 克 = %隐藏%.% 催化裂化% 结束
函子 富 ( X(X) : 信号发生器 类型 秒 结束 ) ( Y(Y) : 信号发生器 类型 t吨 结束 ) =
结构
类型 u个 = X(X) . 秒 * Y(Y) . t吨
结束
结构 A类 = 结构 类型 秒 = 整数 结束
结构 S公司 = 富 ( A类 ) (*Foo A产生(无用)结构*)
函子 克 = 富 ( A类 ) (*Foo A产生函子*)