Skip to main content
Code Golf

Return to Answer

added 2 characters in body
Source Link
nimi
nimi
  • 36k
  • 4
  • 35
  • 100

Haskell, 126 118 bytes

Haskell, 126 118 108 bytes

main=readLn>>=putStr.([t,reverse t]!!)where t=s++show;t=s++show s;s="main=readLn>>=putStr.([t,reverse t]!!)where t=s++show;t=s++show s;s="

Expects 0 or 1 as input.

Haskell, 126 118 bytes

main=readLn>>=putStr.([t,reverse t]!!)where t=s++show s;s="main=readLn>>=putStr.([t,reverse t]!!)where t=s++show s;s="

Expects 0 or 1 as input.

Haskell, 126 118 108 bytes

main=readLn>>=putStr.([t,reverse t]!!);t=s++show s;s="main=readLn>>=putStr.([t,reverse t]!!);t=s++show s;s="

Expects 0 or 1 as input.

added 3 characters in body
Source Link
nimi
nimi
  • 36k
  • 4
  • 35
  • 100

Haskell, 126126 118 bytes

main=readLn>>=putStr.([s++show s[t,reverse$s++showreverse s]t]!!)where s="main=readLn>>=putStrt=s++show s;s="main=readLn>>=putStr.([s++show s[t,reverse$s++showreverse s]t]!!)where s="t=s++show s;s="

Expects 0 or 1 as input.

Haskell, 126 bytes

main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s="main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s="

Expects 0 or 1 as input.

Haskell, 126 118 bytes

main=readLn>>=putStr.([t,reverse t]!!)where t=s++show s;s="main=readLn>>=putStr.([t,reverse t]!!)where t=s++show s;s="

Expects 0 or 1 as input.

Source Link
nimi
nimi
  • 36k
  • 4
  • 35
  • 100

Haskell, 126 bytes

main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s="main=readLn>>=putStr.([s++show s,reverse$s++show s]!!)where s="

Expects 0 or 1 as input.