1
2
3
4
5
6
7
8
# namespaces are different
 
$var1 = 10;
say $var1;
#@var1 = (10,20);
#say @var1;
#%var1 = ("First"=>10,"Second"=>20);
#say %var1;

1
2
3
4
5
6
7
8
# namespaces are different
 
$var1 = 10;
say $var1;
@var1 = (10,20);
say @var1;
%var1 = ("First"=>10,"Second"=>20);
say %var1;

1
2
3
4
5
6
7
8
# namespaces are different
 
$var = 10;
say $var;
@var = (10,20);
say @var;
%var = ("First"=>10,"Second"=>20);
say %var;

1
2
3
4
# ex -10
 
say "hi";
say "how are you";

1
2
3
4
# ex -10
use ':5.10';
say "hi";
say "how are you";

1
2
3
4
# ex -10
#use ':5.10';
say "hi";
say "how are you";

1
2
3
4
5
6
7
8
9
<?php
$arr=array("d"=>1,"m"=>2,"y"=>3);
$i=0;
for($arr as &key=>$value)
{
echo "first arrangement".$i."/n";
foreach($arr as $key=>$value)
{
echo $key."=>".$value."/n";
 ...

1
say "I like pancakes"

1
2
3
4
5
6
7
8
9
importPackage(java.io);
importPackage(java.lang);
 
var reader = new BufferedReader( new InputStreamReader(System['in']) );
 
while (true){
    var line = reader.readLine();
    if (line==null || line=="42") {
       break;
 ...

1
b 04 af c2 bf a3 81 ec 0c fe c1 75 f9 31 c0 ba d0 c1 ca 08 8a 1c 0c 8a fe c1 75 e8 e9 5c 00 00 00 5c 58 3d 41 41 41 41 75 3b 5a 89 d1 89 e6 89 d1 89 df 29 cf 31 c0 31 8a 14 06 8a 34 1e 88 34 8a 1c 16 8a 17 30 da 88 d8 fe c0 cd 80 90 90 e8 00 01 00 00 31 c9 88 0c ef be ad de 02 04 0c 00 3c 04 88 1c 04 88 3c 0c 00 89 e3 81 c3 04 00 00 75 43 58 3d 42 42 42 42 df 29 cf f3 a4 89 de 89 db 31 d2 fe c0 02 1c 06 06 88 14 1e 00 f2 30 f6 17 47 49 75 de 31 db 89 9d ff ff ff 41 41 41 41

1
2
3
4
5
6
7
8
use v6;
 
role Shape
{
    method scale(Num $factor) {...}
    method perimeter(--> Num) {...}
    method area(--> Num) {...}
}
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
role Shape
{
    has Num $.x;
    has Num $.y;
    
    method scale(Num $factor) {...}
    method perimeter(--> Num) {...}
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
role Shape
{
    has Num $.x;
    has Num $.y;
    
    method scale(Num $factor) {...}
    method perimeter(--> Num) {...}
 ...

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec   00 01 00 00 31 c9 88 0c 
0c fe c1 75 f9 31 c0 ba   ef be ad de 02 04 0c 00 
d0 c1 ca 08 8a 1c 0c 8a   3c 04 88 1c 04 88 3c 0c 
fe c1 75 e8 e9 5c 00 00   00 89 e3 81 c3 04 00 00 
00 5c 58 3d 41 41 41 41   75 43 58 3d 42 42 42 42 
75 3b 5a 89 d1 89 e6 89   df 29 cf f3 a4 89 de 89 
d1 89 df 29 cf 31 c0 31   db 31 d2 fe c0 02 1c 06 
8a 14 06 8a 34 1e 88 34   06 88 14 1e 00 f2 30 f6 
8a 1c 16 8a 17 30 da 88   17 47 49 75 de 31 db 89 

1
2
3
4
5
6
7
8
9
class Main{
public static boolean sameEnds(int[] nums, int len) {
if (len==0) return true;
  return getarray(nums,0,len-1).equals(getarray(nums,nums.length-len,nums.length-1));
}
public static int[] getarray(int[] nums, int start, int end){
int[] newnums=new int[end-start+1];
int numba=0;
for (int x=start;x<=end;x++){
 ...

1
while (($_ = $*IN.get) != 42) { say $_ }

1
2
3
4
5
6
7
8
9
[0x00000000]    
jmp 
near 
0x00000006 
         
[...]
[0x00000006]    
sub 
esp,
 ...

1
2
3
4
5
6
7
8
9
eb04afc2bfa381ec
0cfec175f931c0ba
d0c1ca088a1c0c8a
fec175e8e95c0000
005c583d41414141
753b5a89d189e689
d189df29cf31c031
8a14068a341e8834
8a1c168a1730da88
 ...

1
2
3
4
5
6
7
8
9
eb 04 af c2 bf a3 81 ec  00 01 00 00 31 c9 88 0c
0c fe c1 75 f9 31 c0 ba  ef be ad de 02 04 0c 00
d0 c1 ca 08 8a 1c 0c 8a  3c 04 88 1c 04 88 3c 0c
fe c1 75 e8 e9 5c 00 00  00 89 e3 81 c3 04 00 00
00 5c 58 3d 41 41 41 41  75 43 58 3d 42 42 42 42
75 3b 5a 89 d1 89 e6 89  df 29 cf f3 a4 89 de 89
d1 89 df 29 cf 31 c0 31  db 31 d2 fe c0 02 1c 06
8a 14 06 8a 34 1e 88 34  06 88 14 1e 00 f2 30 f6
8a 1c 16 8a 17 30 da 88  17 47 49 75 de 31 db 89

1
perl -lne 'print /^((.+)(?{local($x,$,)=($,,$x.$^N)}))+$(?(?{$o=$,eq$x&&$,})|x)/?$o:0'

1
perl -lne 'print /^((.+)(?{local($x,$,)=($,,$x.$^N)}))+$(?(?{$o=$,eq$x&&$,})|x)/?$o:0'

1
2
3
4
5
6
7
8
9
#include <stdio.h>
 
main(t,_,a)
 
     char *a;
 
{
 
  if ((!0) < t) {
 ...

1
2
3
4
5
6
7
8
9
#include <stdio.h>
 
main(t,_,a)
 
     char *a;
 
{
 
  if ((!0) < t) {
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
class Box
{
    has ::T $.value is rw;
    
    method value_type()
    {
        return $.value.WHAT;
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
class Box
{
    has ::T $.value is rw;
    
    method value_type()
    {
        return $.value.WHAT;
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
role Boxlike[::T]
{
    has T $.value;
    
    method type()
    {
        return T;
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
role Boxlike[::T]
{
    has T $.value;
    
    method type()
    {
        return T;
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
role Boxlike[::T]
{
    has T $.value;
    
    method type()
    {
        return T;
 ...

1
2
3
4
5
6
7
8
9
<?php
$xml = <<<XML
<?xml version="1.0"?>
<url>
        <loc>http://site.com/</loc>
        <priority>0.50</priority>
        <changefreq>daily</changefreq>
        <lastmod>2011-07-27T06:58:53+00:00 </lastmod>
</url>
 ...

1
2
3
4
5
6
7
8
9
use v6;
 
role Boxlike[::T]
{
    has T $.value;
    
    method type()
    {
        return T;
 ...