注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

Yavin(某沙茶的代码库)

Star Wars fan and OIer

 
 
 

日志

 
 

CROC Round1  

2013-04-25 10:05:03|  分类: CodeForces |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
yoooooooo!!!
总算写出了一个能够运行的程序了,不枉我昨天看了一天的书啊
只想吐槽为了编译通过花了我好久好久的时间啊,
不过haskell的语法好灵活的说
orz watashi大神用Haskell打CF照样虐得飞起
但是现在有个问题:
Haskell到底怎么调试啊!
输入输出各种蛋疼

gao::(Int,Int,Int)->(Int,Int)->(Int,Int,Int)
gao (nowmaxPeople,nowTime,nowres) (t,k) = ( max nowmaxPeople nw,t,nw )
where nw=( max (nowres-(t-nowTime)) 0 )+k

myfst::(Int,Int,Int)->Int
myfst (x,_,_)=x

mysnd::(Int,Int,Int)->Int
mysnd (_,x,_)=x

mythd::(Int,Int,Int)->Int
mythd (_,_,x)=x

work::[(Int,Int)]->(Int,Int,Int)->String
work [] x = show ( mysnd x + mythd x ) ++ " " ++ show ( myfst x )
work (a:as) x = work as (gao x a)

get2::[Int]->[(Int,Int)]
get2 xs = zip ( map (xs!!) [1,3..2*n] ) ( map (xs!!) [2,4..2*n] )
where n=xs!!0

main::IO()
main = do
input<-getContents
let
number=map read (words input)::[Int]
putStr $ work ( get2 number ) (0,0,0)


======================================================================
剩下的几道题都是算法非常简单的题目
唉,继续用Haskell写了B和C,C的代码挺有意思的,排名也很高。
但是D和E却无法下手了,根本写不出来。
得出结论,Haskell远远超过我的预期,根本不仅仅是函数式编程这么简单,似乎其对于类型的抽象比C++还高。。我还是太肤浅了。仅仅靠一天学一门语言也是不可能的事情
不过我真,啊
头又很晕,不知道为什么,也许一定要睡午觉了吧
  评论这张
 
阅读(218)| 评论(2)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017