[101]如何在迭代展开过程中输出中间数据? - V2EX
V2EX = way to explore
V2EX 是一个关于分享和探索的地方
现在注册
已注册用户请  登录
ZoomQuiet
V2EX    Lisp

[101]如何在迭代展开过程中输出中间数据?

  •  
  •   ZoomQuiet 2018-01-05 23:51:52 +08:00 5380 次点击
    这是一个创建于 2843 天前的主题,其中的信息可能已经有所发展或是发生改变。

    俺是 Lisp 初学者, 先从 Scheme 建立函式语言的感觉,

    刚刚开始刷: The Little Schemer - 4th Edition (豆瓣)

    环境:

    ; member? _v1 尝试将探索过程打印出来 (define iter4cond ()) ; 声明寄存容器 (define member1? ; 声明函式 (lambda (a lat) ; 绑定匿名函式, 接收参数 a lat (set! iter4cond (cons iter4cond lat)) ; ??? (cond ; 系列 if 判定 ((null? lat) #f) ; 法则->先检验 目标原子是否为空? 是, 直接退出并返回 #f (else (or ; 否则 or 一下两种对比 ;(define lat1st (car lat)) ;(display lat1st) (eq? (car lat) a) ; 第一个成员是否和 对比原子相同? ;(eq? lat1st a) ; 第一个成员是否和 对比原子相同? (member1? a (cdr lat)) ; 对其它成员使用 member 进行检验 ) ) ) ) ) 
    • member1? 是一个基础的自定函式, 来判定指定原子是否存在目标列表中
    • 俺想将迭代过程打印出来,
    • 结果发现 cond 多条件判定语句中,
    • 无论 null? eq? 或是迭代的 member1?
    • 本质上都是退出行为, 根本无法同时打印出对比过程来;

    所以, 不得不用过程语言的方法, 通过全局列表收集过程中的数据,

    再另外打印:

    比如:

    (define lat `(fried eggs and scrambled egg)) (define b 'and) (member1? b lat) => #t 

    iter4cond 

    才能输出:

    (((() fried eggs and scrambled egg) eggs and scrambled egg) and scrambled egg) 

    可能还得另外构建合理的可视化输出函式,

    所以, 俺的问题是, 这种场景中, 是否可以在计算过程中, 安全输出中间数据, 而又不干挠正常的迭代展开?

    1 条回复    2018-03-15 16:11:39 +08:00
    ZoomQuiet
        1
    ZoomQuiet  
    OP
       2018-03-15 16:11:39 +08:00
    ~> [\[101\]如何在迭代展开过程中输出中间数据? \- Google 网上论坛]( https://groups.google.com/forum/#!topic/lisp-cn/Ny4nBE0igWw)

    在 lisp-cn 列表中问出来了:

    尝试用命令行跑一下

    ; member? _v1 尝试将探索过程打印出来

    (define member1? ; 声明函式
    (lambda (a lat) ; 绑定匿名函式, 接收参数 a lat
    (format #t "~a->~a~%" a lat)
    (cond ; 系列 if 判定
    ((null? lat) #f) ; 法则->先检验 目标原子是否为空? 是, 直接退出并返回 #f
    (else (or ; 否则 or 一下两种对比
    ;(define lat1st (car lat))
    ;(display lat1st)
    (eq? (car lat) a) ; 第一个成员是否和 对比原子相同?
    ;(eq? lat1st a) ; 第一个成员是否和 对比原子相同?
    (member1? a (cdr lat)) ; 对其它成员使用 member1 (<--当然的要对应变化否则..) 进行检验
    )
    )
    )
    )
    )
    (define b 'egg)
    (define lat `(fried eggs and scrambled egg))
    (member1? b lat)



    > chez member1.scm

    Chez Scheme Version 9.4
    Copyright 1984-2016 Cisco Systems, Inc.

    egg->(fried eggs and scrambled egg)
    egg->(eggs and scrambled egg)
    egg->(and scrambled egg)
    egg->(scrambled egg)
    egg->(egg)



    主要原因是, Calysto/calysto_scheme: A Scheme kernel for Jupyter that can use
    Python libraries https://github.com/Calysto/calysto_scheme

    这一 Jupyter 插件, 是用 Py 实现的一个 Scheme 模拟器,
    本身不是完备的 Scheme 解析器,
    缺少很多必要的函式支持,

    所以, 切换到 CLI 环境中, 使用确实的 Scheme 运行环境运行,
    就能获得预期结果了...



    rz...
    关于     帮助文档     自助推广系统     博客     API     FAQ     Solana     2513 人在线   最高记录 6679       Select Language
    创意工作者们的社区
    World is powered by solitude
    VERSION: 3.9.8.5 27ms UTC 06:24 PVG 14:24 LAX 23:24 JFK 02:24
    Do have faith in what you're doing.
    ubao msn 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