自定义博客皮肤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的专栏

11月 09月 07月 06月

原创区区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 1829

原创现在真他X的累,学了这个学那个,难道......

现在真他X的累,学了这个学那个,昨天C,今天Java,明天又不知道什么,难道Microsoft的专家也要都通吗?

2004-11-21 19:12:00 836

原创数据库中加条件判断来决定显示的数值

SELECT jxc_yj_xzwz.clmc AS 物资名称, jxc_yj_xzwz.ggxh AS 规格型号, CAST(jxc_yj_xzwz.sl AS int) AS 数量, ISNULL(scdwbmk.dwmc, ) AS 所属部门, CASE jxc_yj_xzwz.syqk WHEN 0 THEN 未使用 ELSE 使用 END AS 使

2004-11-08 17:29:00 1106

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

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

码龄24年

IP 属地：山东省

IP属地以运营商信息为准，境内显示到省（区、市），境外显示到国家（地区）

29: 原创

32万+: 周排名

66万+: 总排名

10万+: 访问

: 等级

1490: 积分

15: 粉丝

9: 获赞

6: 评论

10: 收藏

私信

关注

热门文章

分类专栏

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

最新文章

提示

确定要删除当前文章？

取消删除