Skip to main content
Code Golf

Return to Answer

deleted 99 characters in body
Source Link
Wheat Wizard ♦
Wheat Wizard ♦
  • 100k
  • 22
  • 282
  • 661

Haskell, 461 379 bytes

82 bytes saved by Ørjan Johansen

------_---------mpp-mppr--
----- ----------a  -l--
--            rl=p i__ --
p _ ="left"--  n  niam= --_
p _ ="right"m="left"-- === n==p--
main=putStr $p a="right"++ p"""" --
--          main  =putStr urlrl --
--  -  n +r       tie =iep--
-- --$   +t      Sgf pgf---
-- -"    "S      tht uht---
-- "tr  "tt       rt"tt" --
-- tht   -thu       "S"- --
-- fgS  -fgp       $-t+- --
-- eit   pei=       - r+ n--
-- lru          lr rtStup=  --niam
-- ""p "" $++"thgir"=a rtStup=niamp
-- ===p==n --"thgir"= _"tfel"=m p
-- _ =main n  --"tfel"= _ p
-- __i             --p=lr
---l  a------------- --
---ppm---rppm----------_--

Try it online!Try it online!

---ppm---rppm----------_--
---l  a---------------
-- __i             --
-- _ =main n  --"tfel"=p _ pp=lr
-- ===p==n --"thgir"= _"tfel"=m p
-- ""p "" $++"thgir"=a rtStup=niamp
-- lru          lr rtStup=  --niam
-- eit    pei=      - r+ n--
-- fgS  -fgp       $-t+- --
-- tht   -thu       "S"- --
-- "tr  "tt       rt"tt" --
-- -"    "S      tht uht---
-- --$  +t       Sgf pgf--
 - 
-  -   n +r      tie =iep--
--          main  =putStr urlrl --
main=putStr $p a="right"++ p"""" --
p _ ="right"m="left"-- === n==p--
prl=p _ ="left"p--  n  niam= --_
--             i__ --
---------------a  -l--
-----_----------mpp-mppr--

Try it online!Try it online!

---------------mpp---
---------------a  ---
--             i__ --
p _ ="left"--  n   --
p _ ="right"-- === --
main=putStr $  p"" --
--             url --
--  -          tie --
-- --$         Sgf --
-- -"          tht --
-- "tr         rt" --
-- tht          "- --
-- fgS         $-- --
-- eit          -  --
-- lru             --
-- ""p  $ rtStup=niam
-- === --"thgir"= _ p
--   n  --"tfel"= _ p
-- __i             --
---  a---------------
---ppm---------------

Try it online!

---ppm---------------
---  a---------------
-- __i             --
--   n  --"tfel"= _ p
-- === --"thgir"= _ p
-- ""p  $ rtStup=niam
-- lru             --
-- eit          -  --
-- fgS         $-- --
-- tht          "- --
-- "tr         rt" --
-- -"          tht --
-- --$         Sgf --
 --  -          tie --
--             url --
main=putStr $  p"" --
p _ ="right"-- === --
p _ ="left"--  n   --
--             i__ --
---------------a  ---
---------------mpp---

Try it online!

Haskell, 461 379 bytes

82 bytes saved by Ørjan Johansen

--_----------mppr--
-- ----------a  l--
rl=p  p--   niam= _
p m="left"-- n==p--
p a="right"++ "" --
main  =putStr rl --
--n +r       =iep--
-- -+t       pgf---
-- -"S       uht---
-- "tt       tt" --
---thu       S"- --
---fgp       t+- --
--pei=       r+ n--
-- lr rtStup=  niam
-- "" ++"thgir"=a p
--p==n --"tfel"=m p
_ =main   --p  p=lr
--l  a---------- --
--rppm----------_--

Try it online!

--rppm----------_--
--l  a---------- --
_ =main   --p  p=lr
--p==n --"tfel"=m p
-- "" ++"thgir"=a p
-- lr rtStup=  niam
--pei=       r+ n--
---fgp       t+- --
---thu       S"- --
-- "tt       tt" --
-- -"S       uht---
-- -+t       pgf--- 
--n +r       =iep--
main  =putStr rl --
p a="right"++ "" --
p m="left"-- n==p--
rl=p  p--   niam= _
-- ----------a  l--
--_----------mppr--

Try it online!

deleted 99 characters in body
Source Link
Wheat Wizard ♦
Wheat Wizard ♦
  • 100k
  • 22
  • 282
  • 661

Haskell, 461 bytes

---------------mpp ---
---------------a   ---
--             i__ --
p _ ="left"--  n   --
p _ ="right"-- === --
main=putStr $  p"" --
--             url --
--  -          tie --
-- --$         Sgf --
-- -"          tht --
-- "tr         rt" --
-- tht          "- --
-- fgS         $-- --
-- eit          -  --
-- lru             --
-- ""p  $ rtStup=niam
-- === --"thgir"= _ p
--   n  --"tfel"= _ p
-- __i             --
---  a---------------
---ppm---------------

Try it online!Try it online!

---ppm---------------
---  a---------------
-- __i               --
--   n  --"tfel"= _ p
-- === --"thgir"= _ p
-- ""p  $ rtStup=niam
-- lru             --
-- eit          -  --
-- fgS         $-- --
-- tht          "- --
-- "tr         rt" --
-- -"          tht --
-- --$         Sgf --
--  -          tie --
--             url --
main=putStr $  p"" --
p _ ="right"-- === --
p _ ="left"--  n   --
--             i__ --
---------------a  ---
---------------mpp---

Try it online!Try it online!

Haskell, 461 bytes

---------------mpp --
---------------a   --
--             i__ --
p _ ="left"--  n   --
p _ ="right"-- === --
main=putStr $  p"" --
--             url --
--  -          tie --
-- --$         Sgf --
-- -"          tht --
-- "tr         rt" --
-- tht          "- --
-- fgS         $-- --
-- eit          -  --
-- lru             --
-- ""p  $ rtStup=niam
-- === --"thgir"= _ p
--   n  --"tfel"= _ p
-- __i             --
---  a---------------
---ppm---------------

Try it online!

---ppm---------------
---  a---------------
-- __i               
--   n  --"tfel"= _ p
-- === --"thgir"= _ p
-- ""p  $ rtStup=niam
-- lru             --
-- eit          -  --
-- fgS         $-- --
-- tht          "- --
-- "tr         rt" --
-- -"          tht --
-- --$         Sgf --
--  -          tie --
--             url --
main=putStr $  p"" --
p _ ="right"-- === --
p _ ="left"--  n   --
--             i__ --
---------------a  ---
---------------mpp---

Try it online!

---------------mpp---
---------------a  ---
--             i__ --
p _ ="left"--  n   --
p _ ="right"-- === --
main=putStr $  p"" --
--             url --
--  -          tie --
-- --$         Sgf --
-- -"          tht --
-- "tr         rt" --
-- tht          "- --
-- fgS         $-- --
-- eit          -  --
-- lru             --
-- ""p  $ rtStup=niam
-- === --"thgir"= _ p
--   n  --"tfel"= _ p
-- __i             --
---  a---------------
---ppm---------------

Try it online!

---ppm---------------
---  a---------------
-- __i             --
--   n  --"tfel"= _ p
-- === --"thgir"= _ p
-- ""p  $ rtStup=niam
-- lru             --
-- eit          -  --
-- fgS         $-- --
-- tht          "- --
-- "tr         rt" --
-- -"          tht --
-- --$         Sgf --
--  -          tie --
--             url --
main=putStr $  p"" --
p _ ="right"-- === --
p _ ="left"--  n   --
--             i__ --
---------------a  ---
---------------mpp---

Try it online!

Source Link
Wheat Wizard ♦
Wheat Wizard ♦
  • 100k
  • 22
  • 282
  • 661

Haskell, 461 bytes

---------------mpp --
---------------a   --
--             i__ --
p _ ="left"--  n   --
p _ ="right"-- === --
main=putStr $  p"" --
--             url --
--  -          tie --
-- --$         Sgf --
-- -"          tht --
-- "tr         rt" --
-- tht          "- --
-- fgS         $-- --
-- eit          -  --
-- lru             --
-- ""p  $ rtStup=niam
-- === --"thgir"= _ p
--   n  --"tfel"= _ p
-- __i             --
---  a---------------
---ppm---------------

Try it online!

Since this one has 4-fold symmetry you only need to test the mirror:

---ppm---------------
---  a---------------
-- __i               
--   n  --"tfel"= _ p
-- === --"thgir"= _ p
-- ""p  $ rtStup=niam
-- lru             --
-- eit          -  --
-- fgS         $-- --
-- tht          "- --
-- "tr         rt" --
-- -"          tht --
-- --$         Sgf --
--  -          tie --
--             url --
main=putStr $  p"" --
p _ ="right"-- === --
p _ ="left"--  n   --
--             i__ --
---------------a  ---
---------------mpp---

Try it online!

This is a start. It is far from ideal, but there are a few interesting things going on here. Haskell is a certainly an interesting language for this challenge. I look forward to an answer that beats this be it mine or someone else's.