Functional Programming Contest

比赛链接

Ａ题

1 -- Enter your code here. Read input from STDIN. Print output to STDOUT
2 main = do
3     x <- getLine
4     y <-  getLine
5     putStrLn $ reverse $ foldl (\acc (x, y) -> [y]++[x]++acc) [] $ zip x y

Ｂ题

1 -- Enter your code here. Read input from STDIN. Print output to STDOUT
2 import Data.List
3 main = do
4     inputdata <- getLine
5     putStrLn . concat . map (\xs -> f (head xs) (length xs)) . group $ inputdata
6         where
7             f ch len
8                 | len == 1 = [ch]
9                 | otherwise = [ch] ++ show len

Ｃ题

 1 -- Enter your code here. Read input from STDIN. Print output to STDOUT
 2 import Data.Char
 3 main::IO ()
 4 main = getContents >>= print . (\[n, k] -> superDigit ((read k) * getStrSum(n))) . words
 5
 6 superDigit::Int -> Int
 7 superDigit n
 8     | n < 10 = n
 9     | otherwise = superDigit . getSum $ n
10
11 getSum::Int -> Int
12 getSum 0 = 0
13 getSum n  = (n `rem` 10) + getSum ( n `div` 10)
14
15 getStrSum::String -> Int
16 getStrSum [] = 0
17 getStrSum (x:xs) = ord x - ord '0' + getStrSum xs

Ｄ题

Ｅ题

转载于:https://www.cnblogs.com/Stomach-ache/p/3977844.html

Functional Programming Contest - September'14相关推荐

Clojure入门教程: Clojure – Functional Programming for the JVM中文版
http://xumingming.sinaapp.com/302/clojure-functional-programming-for-the-jvm-clojure-tutorial/ api:h ...
Clojure – Functional Programming for the JVM中文版
Clojure – Functional Programming for the JVM中文版发表于 2011 年 12 月 07 日由xumingming 作者: xumingming | 可以 ...
Atcoder Keyence Programming Contest 2020 D - Swap and Flip
Atcoder Keyence Programming Contest 2020 D - Swap and Flip 题目描述 Solution 写了一个简单的O(2nn(n+w))O(2^nn(n+ ...
【The 13th Chinese Northeast Collegiate Programming Contest】I. Temperature Survey
题目描述 [题目链接](https://codeforces.com/gym/102220/problem/I) 给定长度为 $n$ 的 $a$ 序列,保证 $a_n \le n$,求有多少个长度为 ...
Kotlin 函数式编程（Kotlin Functional Programming）
Kotlin 函数式编程 (Kotlin Functional Programming) 陈光剑 1. 函数式概述 6 1.1. 函数式简史 6 1.2. 函数式编程语言家族 7 1.2.1. ...
Programming Contest Ranking（题解）
Programming Contest Ranking . 题目描述 Heilongjiang Programming Contest will end successfully! And your ...
2019 浙江省赛部分题解（The 16th Zhejiang Provincial Collegiate Programming Contest Sponsored by TuSimple）
签到题 GLucky 7 in the Pocket Time Limit: 1 Second Memory Limit: 65536 KB BaoBao loves number 7 bu ...
(趋势）The 2002 Trend Micro Programming Contest, Preliminary
The 2002 Trend Micro Programming Contest, Preliminary 蕷B氡呂? 蘥?╂賓Y? Good Neighbors a???6摕圓2d:&a ...
Sichuan University Programming Contest 2018 Preliminary
嗯为了防止大家AK,所以这次的A题和K题我们就当做不存在好了! 经历了昨天写了两个多小时的博客没保存的心态炸裂,今天终于下了个Markdown.所以我猜这篇的格式应该会更好看一点! 好吧废话不多说题 ...

Functional Programming Contest - September'14

Functional Programming Contest - September'14相关推荐

最新文章

热门文章