素数 = 过滤器Prime [ 2 .. ] 哪里 过滤器Prime ( 第页 : X轴 ) = 第页 : 过滤器Prime [ x个 | x个 <- X轴 , x个 `模块` 第页 /= 0 ]
烧焦 = “a” :: 烧焦 整数 = 123 :: 国际 乐趣 = 是数字 :: 烧焦 -> 布尔
是数字 1
字节 = 加密 . 搞砸 . SHA1公司 . 散列 “你好” :: 字节字符串 文本 = 解码Utf8 字节 :: 文本
双重解码 = 解码Utf8 ( 解码Utf8 字节 )
广场 :: 国际 -> 国际 广场 x个 = x个 * x个
“您好:” ++ “世界!”
“姓名:” ++ 获取线路
主要的 :: IO(输入输出) () 主要的 = 做 线 :: 字符串 <- 获取线路 打印 ( 解析数字 线 ) 哪里 解析数字 :: 字符串 -> 也许 吧 国际 解析数字 ( ( c(c) :: 烧焦 ) : _ ) = 如果 是数字 c(c) 然后 只是 ( 字 c(c) - 字 '0' ) 其他的 没有什么
主要的 = 做 线 <- 获取线路 打印 ( 解析数字 线 ) 哪里 解析数字 ( c(c) : _ ) = 如果 是数字 c(c) 然后 只是 ( 字 c(c) - 字 '0' ) 其他的 没有什么
做 不锈钢 <- 解码 “[\”Hello!\“,\”World!\“]” 是 <- 解码 “[1,2,3]” 返回 ( 拉链 ( \ 秒 我 -> 秒 ++ " " ++ 显示 ( 我 + 5 ) ) 不锈钢 是 ) => 只是 [ “你好!6” , “世界!7” ]
做 不锈钢 <- 解码 "[1,2,3]" 是 <- 解码 “[空,空,空]” 返回 ( 拉链 ( \ 秒 我 -> 秒 ++ " " ++ 显示 ( 我 + 5 ) ) 不锈钢 是 ) => 没有什么
主要的 = 做 完成 <- 新的空MVar fork IO(分叉IO) ( 做 输入StrLn “我是一根线!” putMVar(推杆) 完成 “完成!” ) 第二 <- fork IO(分叉IO) ( 做 线程延迟 100000 输入StrLn “我是另一个线程!” ) killThread线程 第二 消息 <- takeMVar(获取MVar) 完成 输入StrLn 消息
做 a1级 <- 异步 ( 获取URL 网址1 ) a2类 <- 异步 ( 获取URL URL 2 ) 第1页 <- 等待 a1级 第2页 <- 等待 a2类 ...
转移 :: 账户 -> 账户 -> 国际 -> IO(输入输出) () 转移 从 到 数量 = 原子地 ( 做 存款 到 数量 撤退 从 数量 )
主要的 = 原子地 ( 输入StrLn “你好!” )
什么时候 第页 米 = 如果 第页 然后 米 其他的 返回 () 主要的 = 做 参数 <- 获取参数 什么时候 ( 无效的 参数 ) ( 输入StrLn “未指定参数!” )
如果 c(c) 然后 t吨 其他的 False(错误)
和 c(c) t吨 = 如果 c(c) 然后 t吨 其他的 False(错误)
任何 :: ( 一 -> 布尔 ) -> [ 一 ] -> 布尔 任何 第页 = 或 . 地图 第页