首页 手机软件 手机游戏 单机游戏 资讯文章 专题下载 游戏合集 文章合集 php下载 php教程 电脑软件
+ -
当前位置：首页 → 问答吧 → 求助：除去成对的括号

求助：除去成对的括号

时间：2011-02-19

来源：互联网

设最外层括号为第 1 层，请问怎么样能够除去 1 对第 2 层的括号，保留其他括号？

谢谢！

例如：
  1. (((1,2),3),4)   =>  ((1,2),3,4)

  3. ((1,2),(3,4))   =>  ((1,2),3,4)
  4.                         or
  5.                     (1,2,(3,4))
  6.                     
  7. (1,(2,(3,4)))   => (1,2,(3,4))
复制代码

作者: longbow0   发布时间: 2011-02-19

基本能够完成任务的代码，请各位指正。
  1. #!/usr/bin/perl

  3. use strict;
  4. use warnings;

  6. while (<DATA>) {
  7.     next if /^#/;
  8.     next if /^\s*$/;
  9.     chomp;
  10.    
  11.     print $_, "==>\n";
  12.    
  13.     my ($lnode, $rnode) = getNodes($_);
  14.    
  15.     if ($lnode =~ /^\(/) {
  16.         my $str = $lnode;
  17.         
  18.         my ($lnode, $mnode) = getNodes($str);
  19.         
  20.         print join(',', ($lnode, $mnode, $rnode)), "\n";
  21.     }
  22.     else {
  23.         my $str = $rnode;
  24.         
  25.         my ($mnode, $rnode) = getNodes($str);
  26.         
  27.         print join(',', ($lnode, $mnode, $rnode)), "\n";
  28.     }
  29. }

  31. =begin
  32.   Name:     getNodes
  33.   Desc:     Get 2 nodes of a binary tree
  34.   Usage:    getNodes($str)
  35.   Args:     A string
  36.   Return:   2 strings
  37. =cut

  39. sub getNodes {
  40.     my ($str) = @_;
  41.    
  42.     # Remove leading and tailing parentheses
  43.     # $str =~ s/^\(|\)$//g;
  44.    
  45.     # '((1,2),3)'
  46.     if ($str =~ /^\((\(.+\)),(\w+)\)$/) {
  47.     #    print "L\n";
  48.         return ($1, $2);
  49.     }
  50.     # '((1,2),(3,4))'
  51.     elsif ($str =~ /^\((\(.+\)),(\(.+\))\)$/) {
  52.     #    print "M\n";
  53.         return ($1, $2);
  54.     }
  55.     # '(1,(2,3))'
  56.     elsif ($str =~ /^\((\w+),(\(.+\))\)$/) {
  57.     #    print "R\n";
  58.         return ($1, $2);
  59.     }
  60.     # '(1,2)'
  61.     elsif ($str =~ /^\((\w+),(\w+)\)$/) {
  62.         return ($1, $2);
  63.     }
  64.     else {
  65.         print "Error!\n";
  66.         return (0, 0);
  67.     }
  68. }

  70. __DATA__
  71. (((1,2),3),4)
  72. ((1,2),(3,4))
  73. (1,(2,(3,4)))
  74. ((1,2),(3,(4,5)))
  75. (((((1,2),3),4),(5,6))
复制代码
输出
  1. (((1,2),3),4)==>
  2. (1,2),3,4
  3. ((1,2),(3,4))==>
  4. 1,2,(3,4)
  5. (1,(2,(3,4)))==>
  6. 1,2,(3,4)
  7. ((1,2),(3,(4,5)))==>
  8. 1,2,(3,(4,5))
  9. (((((1,2),3),4),(5,6))==>
  10. (((1,2),3),4,(5,6)
复制代码

作者: longbow0   发布时间: 2011-02-20

相关阅读 更多

热门阅读

热门下载

更多
关于本站 免责申明 联系我们

Copyright 2006-2020 php爱好者(phpfans.net) All Rights Reserved.备案号：湘ICP备2023016114号-2

本站为非盈利性网站，不接受任何广告。本站所有资源均由网友上传，如有侵权，请发邮件至 [email protected] phpfans.net