[算法] 给 print 加括号

104359176

回复 10# q1208c

1. input     output
   
2. ---------------------
   
3.   a             a
   
4.   'a         (quote a)
   
5.   ''a        (quote (quote a))
   
6.   (a b)    (a b)
   
7.   '(a b)    (quote (a b))
   
8.   ''(a b)   (quote (quote (a b))

复制代码

q1208c

还真有点麻烦,  我不太刻递归的语法了.

lkk_super

用数组模拟栈鲁一下就行了吧

104359176

回复 13# lkk_super

里面有递归结构，光遍历不行。

   

q1208c

1. [user@host /tmp]
   
2. $ cat test.scr
   
3. :test /'/{
   
4.     s/'\([^']\+\)/(quote \1)/g
   
5.     b test
   
6. }
   
7. 
   
8. [user@host /tmp]
   
9. $ cat testfile
   
10. a
    
11. 'a
    
12. ''a
    
13. (a b)
    
14. '(a b)
    
15. ''(a b)
    
16. 
    
17. [user@host /tmp]
    
18. $ sed -f test.scr testfile
    
19. a
    
20. (quote a)
    
21. (quote (quote a))
    
22. (a b)
    
23. (quote (a b))
    
24. (quote (quote (a b)))
    

复制代码

perl 实在没搞出来, sed的, 凑合看看

q1208c

1. [user@host /tmp]
   
2. $ cat test.pl
   
3. #!/usr/bin/perl
   
4. #
   
5. #
   
6. use warnings;
   
7. use strict;
   
8. 
   
9. 
   
10. open(FILE, "<"."testfile") or die ("$!\n");
    
11. 
    
12. while (my $line = <FILE>) {
    
13.     chomp $line;
    
14.     if ($line =~ /'/) {
    
15.         $line =~ s/'([^']+)/(quote $1)/g;
    
16.         redo;
    
17.     } else {
    
18.         print $line, "\n";
    
19.     }
    
20. }
    
21. close(FILE);
    

复制代码

perl 的, 楼主试试, 土了点

104359176

回复 16# q1208c


    你对 sed 和 Perl 都比较熟。文本处理的功力非同一般。

    看样这样的问题要多次扫描替换，一个正则表达式很难搞定了。

    非常感谢，但我明白你的思路了。

q1208c

回复 17# 104359176

我也只是一般了解. 没有深入研究.

我实在不知道单一表达式是怎么搞了
   

laputa73

分行以后,等于逻辑简单了不少

104359176

回复 19# laputa73

是啊，实际的问题，不但没有分行，前后都有东西。

1. (if (> 1 2) (print '(list ''(a b))))

复制代码

我只是来看看别人的思路。