一段 Haskell 代码求助! - V2EX
V2EX = way to explore
V2EX 是一个关于分享和探索的地方
现在注册
已注册用户请  登录
wcp1231
V2EX    Haskell

一段 Haskell 代码求助!

  •  
  •   wcp1231 2014-11-04 17:38:41 +08:00 6626 次点击
    这是一个创建于 3992 天前的主题,其中的信息可能已经有所发展或是发生改变。
    昨天看到这个博客 http://www.lazzaro.com.ar/#/archive/83103005589 ,前一半还能看懂,到后面就不行了,我是小白刚刚入门 Haskell,请各位大大们讲解一下。。

    let dropWhile'' predicate list= (foldr (\x rec -> if precidate x then rec.tail else id) id list) list

    不明白的地方有两个, rec.tail 是啥意思?应该不是过程式语言的调用吧。。
    另一个是 (foldr (\x rec -> if precidate x then rec.tail else id) id list) 这段 foldr 不会是返回一个包含函数的 list 然后作用到最后的那个 list 上吧?有这种语法?

    谢谢给位大大了!
    10 条回复    2014-11-07 11:01:03 +08:00
    yukirock
        1
    yukirock  
       2014-11-04 21:09:36 +08:00   1
    rec.tail 是函合,形如把 f(g(x)) 成 (f . g) x 的形式。一般成前後各留一空格,像 rec . tail 。

    foldr 的是返回一合函。它的意是,一 list,如果 list 的有多少能令 predicate x True 的 x,就返回一合了多少 tail 的合函,然後 list 用合函。

    不好理解,例子。

    *Main> dropWhile'' (<3) [1,2,3,4,5,4,3,2,1]
    [3,4,5,4,3,2,1]

    foldr 是右向左,到右的 1,2 accumulator 是 (id . tail . tail);到 3 的候返回 id,相於 accumulator 清空;再到前面的 3 止都是 id,到前面的 2 ,因足 predicate x True,所以返回一 (id . tail),到 1 就成 (id . tail . tail)。最後就相於的 list 用 (id . tail . tail) 一有 tail 的合函。

    如果我在 list 前面再加一令 predicate x False 的值例如 3,成 [3,1,2,3,4,5,4,3,2,1],那 foldr 是和先前一右向左,到 list 第二位的 1 (id . tail . tail),然後遇到 3,清空成 id,dropWhile'' 就成了 id [3,1,2,3,4,5,4,3,2,1],返回 [3,1,2,3,4,5,4,3,2,1]。
    wcp1231
        2
    wcp1231  
    OP
       2014-11-04 21:24:16 +08:00
    @yukirock 我发在冷门节点没上首页居然回复了!太感谢了!

    我仔细看才发现, rec 一开始是 `id` 我一直以为是 [ id ] 。。。。。。都明白了。。。
    wcp1231
        3
    wcp1231  
    OP
       2014-11-04 21:52:39 +08:00
    @yukirock 对了,后一行的

    recr base combine (x:xs) = f x xs (recr base combine xs)

    f 是怎么来的?
    yukirock
        4
    yukirock  
       2014-11-04 22:39:25 +08:00
    @wcp1231 我就不知道了,我估他了……

    那 lambda 面 predicate 他不就拼了 orz
    wcp1231
        5
    wcp1231  
    OP
       2014-11-04 23:27:35 +08:00
    @yukirock 也是。。国内 haskell 的社区太少了,我都差点去 irc 问了。。。haskell 还能去哪里交流啊?
    yukirock
        6
    yukirock  
       2014-11-05 00:07:51 +08:00
    @wcp1231 其我也不清楚……

    我上倒是可以用程或者 Facebook,不放的 Haskell 社我倒不常去。反正我西的度是……不做 PL 或者人逼你真必要,把 Learn you a Haskell 看一遍,看看人於 Haskell 的讨论(比如说 http://www.zhihu.com/topic/19593103/hot)差不多了。
    ChiangDi
        7
    ChiangDi  
       2014-11-05 00:08:20 +08:00 via Android
    水木社区的函数式编程板块还是比较活跃的。
    wcp1231
        8
    wcp1231  
    OP
       2014-11-05 10:37:34 +08:00
    @yukirock
    @ChiangDi 好的!
    yukirock
        9
    yukirock  
       2014-11-07 03:07:12 +08:00
    @wcp1231 看的件倒是有提到一些知名的 Haskell 社:

    http://shuklan.com/haskell/lec07.html#/0/4

    包括 SO,IRC,Reddit 等……然我都用就是了。
    wcp1231
        10
    wcp1231  
    OP
       2014-11-07 11:01:03 +08:00
    @yukirock 多谢!
    关于     帮助文档     自助推广系统     博客     API     FAQ     Solana     3917 人在线   最高记录 6679       Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 27ms UTC 04:11 PVG 12:11 LAX 21:11 JFK 00:11
    Do have faith in what you're doing.
    ubao snddm index pchome yahoo rakuten mypaper meadowduck bidyahoo youbao zxmzxm asda bnvcg cvbfg dfscv mmhjk xxddc yybgb zznbn ccubao uaitu acv GXCV ET GDG YH FG BCVB FJFH CBRE CBC GDG ET54 WRWR RWER WREW WRWER RWER SDG EW SF DSFSF fbbs ubao fhd dfg ewr dg df ewwr ewwr et ruyut utut dfg fgd gdfgt etg dfgt dfgd ert4 gd fgg wr 235 wer3 we vsdf sdf gdf ert xcv sdf rwer hfd dfg cvb rwf afb dfh jgh bmn lgh rty gfds cxv xcv xcs vdas fdf fgd cv sdf tert sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf shasha9178 shasha9178 shasha9178 shasha9178 shasha9178 liflif2 liflif2 liflif2 liflif2 liflif2 liblib3 liblib3 liblib3 liblib3 liblib3 zhazha444 zhazha444 zhazha444 zhazha444 zhazha444 dende5 dende denden denden2 denden21 fenfen9 fenf619 fen619 fenfe9 fe619 sdf sdf sdf sdf sdf zhazh90 zhazh0 zhaa50 zha90 zh590 zho zhoz zhozh zhozho zhozho2 lislis lls95 lili95 lils5 liss9 sdf0ty987 sdft876 sdft9876 sdf09876 sd0t9876 sdf0ty98 sdf0976 sdf0ty986 sdf0ty96 sdf0t76 sdf0876 df0ty98 sf0t876 sd0ty76 sdy76 sdf76 sdf0t76 sdf0ty9 sdf0ty98 sdf0ty987 sdf0ty98 sdf6676 sdf876 sd876 sd876 sdf6 sdf6 sdf9876 sdf0t sdf06 sdf0ty9776 sdf0ty9776 sdf0ty76 sdf8876 sdf0t sd6 sdf06 s688876 sd688 sdf86