Tetris by m.ukai

let a,d,b,c,t,s=read_line(),"
  #       
","#         
","         #
","
######### ","          
";;print_string(s^s^s^s^s^s^
if '#'=a.[1]then
s^s^s^s^s^s^b^"#      #  
# #   ## #"else if '#'=a.[4]then
s^s^s^b^c^c^"      ## #
 #  # ## #
   #      "else" #        "^d^"# ########"^d^s^" # #  ### 
########  "^t^t)

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page