fork(1) download
copy 
  1. #!perl
  2. sub f{[map{ref()?@{f(@$_)}:$_}@_]}
  3.  
  4. local $, = ",";
  5. print @{f([10,20,30])}; print "\n";
  6. print @{f([[10]])}; print "\n";
  7. print @{f([["Hi"],[[10]]])}; print "\n";
  8. print @{f([[[20],["Hi"],"Hi",20]])}; print "\n";
  9. print @{f([[["[]"],"[]"]])}; print "\n";
  10. print @{f([["\"Hi\""],[[10]]])}; print "\n";
  11.  
Success #stdin #stdout 0s 6000KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
10,20,30
10
Hi,10
20,Hi,Hi,20
[],[]
"Hi",10
https://ideone.com/V8Xg0Q
http://c...content-available-to-author-only...e.com/q/80096
language:
Perl (perl 5.28.1)
created:
7 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!