fork download
copy 
  1. #!/usr/bin/perl
  2.  
  3. arrPrint(t(3));
  4.  
  5. sub t{$r=[($t)=@_];$r=[$t,$r]while--$t>0;$r}
  6.  
  7. sub arrPrint {
  8. 	my ($c) = @_;
  9. 	for (@{$c}) {
  10. 		if (ref eq "ARRAY" ) {
  11. 			arrPrint($_);
  12. 		} else {
  13. 			print "(${_},";
  14. 		}
  15. 	}
  16. 	print ")";
  17. }
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(1,(2,(3,)))
https://ideone.com/boNb5V
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!