aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
Task/Interactive-programming-repl-/Perl/interactive-programming-repl--1.pl Normal file
View file

@ -0,0 +1,13 @@
$ perl -de1
Loading DB routines from perl5db.pl version 1.3
Editor support available.
Enter h or `h h' for help, or `man perldebug' for more help.
main::(-e:1): 1
DB<1> sub f {my ($s1, $s2, $sep) = @_; $s1 . $sep . $sep . $s2}
DB<2> p f('Rosetta', 'Code', ':')
Rosetta::Code
DB<3> q

7
Task/Interactive-programming-repl-/Perl/interactive-programming-repl--2.pl Normal file
View file

@ -0,0 +1,7 @@
$ perl
# Write the script here and press Ctrl+D plus ENTER when finished (^D means Ctrl+D):
sub f {my ($s1, $s2, $sep) = @_; $s1 . $sep . $sep . $s2};
print f('Rosetta', 'Code', ':');
^D
Rosetta::Code
$

5
Task/Interactive-programming-repl-/Perl/interactive-programming-repl--3.pl Normal file
View file

@ -0,0 +1,5 @@
$ perl -lpe '$_=eval||$@'
sub f { join '' => @_[0, 2, 2, 1] }
f qw/Rosetta Code :/
Rosetta::Code