fork download 
  1. open System
  2.  
  3. let a = Console.ReadLine().Split()
  4.  
  5. let mutable tmp = 3
  6. let mutable temp = 0
  7. let mutable j = 0
  8. let mutable k = 0
  9. let f = for i in 0 .. int(a.[0]) - 1 do
  10.             j <- 0
  11.             while j < int(a.[1]) do
  12.                 if (i % 2 <> 0) then
  13.                     k <- 0
  14.                     while k < int(a.[1]) - 1 do
  15.                         temp <- i
  16.                         if (temp = tmp) then
  17.                             printf "#"
  18.                             for l in 0 .. int(a.[1]) - 2 do
  19.                                 printf "."
  20.                             tmp <- tmp + 4
  21.                             k <- int(a.[1]) - 1
  22.                         else
  23.                             printf "."
  24.                             if (k = int(a.[1]) - 2) then
  25.                                 printf "#"
  26.                         k <- k + 1
  27.                     j <- int(a.[1])
  28.                 else
  29.                     printf "#"
  30.                 j <- j + 1
  31.             printf "\n"
Success #stdin #stdout 0.06s 24440KB
comments (?)
stdin 
5 30
stdout 
##############################
.............................#
##############################
#.............................
##############################
https://ideone.com/J9Jgml
language:
F# (mono 4.1)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!