1
20 symbols pyth
Mon Sep 19 20:21:25 2016 Sait2000
VQAcwdr`&}G+HHqlGlH0
2
41 symbols perl
Sat Oct 24 02:43:11 2015 vakorol
#!/usr/bin/perl -pl
$_=/ /?/^(.*)(.+) \2\1$/?true:false:""
3
42 symbols perl
Fri Oct 23 16:53:20 2015 danieljabailey
#!/usr/bin/perl -pl
$_=$n++?/^(.*)(.+) \2\1$/?true:false:""
4
44 symbols perl
Fri Oct 23 16:52:16 2015 danieljabailey
#!/usr/bin/perl -nl
print/^(.*)(.+) \2\1$/?true:"false"if$.-1
5
46 symbols perl
Fri Oct 23 01:13:05 2015 vakorol
#!/usr/bin/perl -pl
$_=$n++?/^(.*)(.+) \2\1$/?"true":"false":""
6
50 symbols perl
Fri Oct 9 22:43:42 2015 danieljabailey
#!/usr/bin/perl -lp
$_=/(.+) (.+)/?($2x3)=~/$1$1/?"true":"false":""
7
51 symbols perl
Fri Oct 9 12:56:56 2015 danieljabailey
#!/usr/bin/perl -lp
$_=/(.+) (.+)/?($2 x3)=~/$1$1/?"true":"false":""
8
52 symbols perl
Fri Oct 9 12:52:03 2015 danieljabailey
#!/usr/bin/perl -p
$_=/(.+) (.+)/?($2 x3)=~/$1$1/?"true
":"false
":""
9
53 symbols perl
Fri Oct 9 12:50:47 2015 danieljabailey
#!/usr/bin/perl -p
$_=/(.+) (.+)/?"$2$2$2"=~/$1$1/?"true
":"false
":""
10
69 symbols perl
Thu Sep 24 23:46:06 2015 danieljabailey
#!/usr/bin/perl -p
$_=/(.+) (.+)/?length$1==length$2&&"$2$2"=~/$1/?"true
":"false
":""
11
69 symbols python2
Sat Jan 16 18:22:15 2016 Sait2000
for _ in[0]*input():a,b=raw_input().split();print`a*2 in b*3`.lower()
12
70 symbols perl
Wed Sep 23 23:02:08 2015 danieljabailey
#!/usr/bin/perl -n
print length$1==length$2&&"$2$2"=~/$1/?"true
":"false
"if/(.+) (.+)/
13
72 symbols python2
Sat Jan 16 18:15:44 2016 Sait2000
t=input()
while t:t-=1;a,b=raw_input().split();print`a*2 in b*3`.lower()
14
80 symbols python2
Fri Oct 9 15:25:25 2015 BogdanShevchenko
t=input()
while t:t-=1;a,b=raw_input().split();print("false","true")[a*2 in b*3]
15
82 symbols python2
Thu Oct 8 13:43:26 2015 BogdanShevchenko
t=input()
while t:t-=1;a,b=raw_input().split();print("false","true")[a+a in b+b+b]
16
83 symbols bash
Tue Aug 16 23:18:12 2016 hidefromkgb
b=`md5sum`;while((++i<101));do sed '/0/ctrue
cfalse'<<<$[${b:2:1}?(i-1)%3:i%4];done
17
85 symbols bash
Tue Aug 16 23:17:04 2016 hidefromkgb
b=`md5sum`;while((++i<101));do sed $'/0/ctrue\ncfalse'<<<$[${b:2:1}?(i-1)%3:i%4];done
18
88 symbols perl
Wed Sep 23 18:30:15 2015 dmitry-tiger
#!/usr/bin/perl -anl
print join("",sort$F[0]=~/(.)/g)eq join("",sort$F[1]=~/(.)/g)?"true":"false" if $#F;
19
91 symbols python2
Thu Oct 8 13:23:37 2015 BogdanShevchenko
t=input()
while t:t-=1;a,b=raw_input().split();print("false","true")[b in a+a and a in b+b]
20
95 symbols perl
Wed Sep 23 18:18:59 2015 dmitry-tiger
#!/usr/bin/perl -anl
next if$#F==0;print(join("",sort$F[0]=~/(.)/g)eq join("",sort$F[1]=~/(.)/g)?"true":"false")
21
96 symbols python2
Sun Sep 27 17:53:24 2015 Sait2000
t=input()
while t:t-=1;a,b=raw_input().split();print("false","true")[len(a)==len(b)and a in b+b]
22
97 symbols python2
Wed Sep 23 19:51:32 2015 PFischbeck
t=input()
while t:t-=1;a,b=raw_input().split();print("false","true")[len(a)==len(b) and a in b+b]
23
98 symbols perl
Wed Sep 23 18:16:48 2015 dmitry-tiger
#!/usr/bin/perl -anl
next if $#F==0;print(join("",sort$F[0]=~/(.)/g) eq join("",sort$F[1]=~/(.)/g)?"true":"false");
24
111 symbols bash
Sun Jul 24 15:32:27 2016 hidefromkgb
t='\(.*\)';p='[^ ]*';tail -n+2|sed "s/$t $t/& \2\2 \1\1/;s/$t $t $p\1$p $p\2$p/true/;/^true$/bt;s/.*/false/;:t"
25
126 symbols haskell
Wed Oct 21 08:42:00 2015 YoshikuniJujo
main=interact$unlines.map(b.c.words).tail.lines
b True="true"
b _="false"
c[s,t]=s`elem`t#t
[]#_=[]
(_:d)#a@(x:s)=a:d#(s++[x])
26
132 symbols haskell
Fri Oct 9 11:44:39 2015 YoshikuniJujo
import Data.Char
main=interact$unlines.map(map toLower.show.c.words).tail.lines
c[s,t]=s`elem`t#t
[]#_=[]
(_:d)#a@(x:s)=a:d#(s++[x])
27
140 symbols python2
Wed Sep 23 15:54:16 2015 Shubhang Sati
t=input()
while t:
 t-=1
 a,b=raw_input().split()
 if len(a)!=len(b):
  print "false";continue
 if b in a+a:print "true"
 else:print "false"
28
334 symbols ruby
Wed Sep 21 22:52:41 2016 JJonesJr
#!/usr/bin/ruby -p 
if(!($_.split.length==1))


s1= $_.split[0].chars
s2= $_.split[1].chars
h1= {}
h2= {}
s1.each do |c|
    if (h1.has_key? c)
        h1[c]= h1[c]+1

    else
        h1[c]=1
    end
end
s2.each do |c|
    if (h2.has_key? c)
        h2[c]= h2[c]+1

    else
        h2[c]=1
    end
end
$_ =(h1.eql? h2).to_s + "\n"
else
    $_=""
end
29
384 symbols haskell
Fri Oct 9 11:24:40 2015 YoshikuniJujo
import Data.Char

main :: IO ()
main = interact $ unlines . map (map toLower . show
		. (\[s1, s2] -> isCircular s1 s2) . words
	) . tail . lines

isCircular :: String -> String -> Bool
isCircular s1 s2 = s1 `elem` rots s2

rots :: [a] -> [[a]]
rots xs = rotates (length xs) xs

rotates :: Int -> [a] -> [[a]]
rotates 0 _ = []
rotates n xa@(x : xs) = xa : rotates (n - 1) (xs ++ [x])