fork download
copy 
  1. $x=<>;
  2. while(<>)
  3. {
  4. $strnam=<>;
  5. $strn=<>;
  6. $strname=$strnam$strn;
  7. if(eof())
  8. {
  9. break;
  10. }
  11. }
  12.  
  13. $reversed= reverse ($strname);
  14. my @values = split(' ',$reversed);
  15. foreach my $val (@values) 
  16. {
  17. for($i=0;$i<$x;$i++)
  18. {
  19. 	print "$val ";
  20. }
  21. }
  22. exit 0;
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin
copy 
5
hai im sharavana guru he he
thus da
compilation info 
===SORRY!===
Unsupported use of <>; in Perl 6 please use lines() or () at line 1, near "<>;\nwhile("
stdout
copy 
Standard output is empty
https://ideone.com/xPW6f
language:
Perl (perl 2018.12)
created:
14 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!