自定义博客皮肤VIP专享

*博客头图：

点击选择上传的图片

格式为PNG、JPG，宽度*高度大于1920*100像素，不超过2MB，主视觉建议放在右侧，请参照线上博客头图

请上传大于1920*100像素的图片！

博客底图：

点击选择上传的图片

图片格式为PNG、JPG，不超过1MB，可上下左右平铺至整个背景

栏目图：

点击选择上传的图片

图片格式为PNG、JPG，图片宽度*高度为300*38像素，不超过0.5MB

主标题颜色：

RGB颜色，例如：#AFAFAF

Hover：

RGB颜色，例如：#AFAFAF

副标题颜色：

RGB颜色，例如：#AFAFAF

预览取消提交

自定义博客皮肤

上一步保存

mjk的专栏

mjk CSDN认证博客专家 CSDN认证企业博客

码龄25年

暂无认证

29: 原创

32万+: 周排名

61万+: 总排名

10万+: 访问

: 等级

1494: 积分

15: 粉丝

9: 获赞

6: 评论

11: 收藏

私信

关注

分类专栏

C# 3篇
C/C++ 4篇
Database
haskell 18篇
Java 2篇
Misc 2篇
Network
Perl 2篇
R 3篇
Tcl 1篇
Ubuntu 2篇

最新评论

Haskell:String和ByteString互相转换代码
NewAngle: 真心木看懂
这段代码处理排版比较乱的文本文件，但是我一直整理文件不成功,忘记从哪个大牛的网站上摘来的，抱歉！
rocher88: 这是啥语言？
Paul Hudak谈Haskell
k1x000: -- | Returns true if the two coords are adjacent. False otherwise isNeighbouringCoord :: Coord -> Coord -> Bool isNeighbouringCoord (Coord x y) (Coord x' y') | x==x' && y==y' =False | (abs (x-x'))<=1 && (abs (y-y'))<=1 = True | otherwise = False
Paul Hudak谈Haskell
k1x000: module Cell ( Cell (..) , Coord (..) , CellState (..) , isHead , isNeighbouringCoord ) where -- | An individual cell is its coordinate and its state data Cell = Cell {cellCoord :: Coord, cellState :: CellState} deriving (Show, Read) -- | A coordinate in 2-d space data Coord = Coord {xCoord, yCoord :: Integer} deriving (Ord, Eq, Show, Read) -- | A cell in the wireworld cellular automaton is either an electron head -- an electron tail, or a conductor. data CellState = Head | Tail | Conductor deriving (Show, Read) -- Note; Equality is not defined, nor should it need to be defined -- | Returns true if a cell is a head. False otherwise isHead :: Cell -> Bool isHead cell = case (cellState cell) of Head -> True _ -> False
Paul Hudak谈Haskell
k1x000: 你好，一个同学拜托我帮他一个忙。就是有关haskell的。但是我完全不知道怎么是什么程序。按照他的方法下载了haskell平台和Notepad++ 5.9.8了。他是老师布置的一个作业，只要补充程序就好了，程序我有，好像是做一个wireworld。希望楼主能加一下我QQ，帮我这个忙，谢谢了！ 1442777918

Tcl

关注

关注数：文章数：1 文章阅读量：1838 文章收藏量：0

作者: mjk

这个作者很懒，什么都没留下…

展开

区区314行TCL代码,就将欧洲地图画出,真是每种语言都有存在的必然啊?

#!/usr/bin/wish -fglobal countries is1 scwm title . "Eu Tool V0.0"wm minsize . 50 50frame .f -bg grey -bd 2;# to hold canvas and scrollbarspack .fframe .f.sub -bg red -bd 2 ;# to hold canvaspack .f

原创 2004-11-27 19:10:00 · 1838 阅读 · 0 评论

Tcl

作者: mjk

区区314行TCL代码,就将欧洲地图画出,真是每种语言都有存在的必然啊?