library(tidyverse)
s <- function(x, y) {c(x + lag(x, d=0), 1) %% 2}
r <- Reduce(s, 1:63, 1, acc=T)
r <- r %>% map(~paste(ifelse(.x%%2, '#', ' '), collapse=''))
cat(paste(r, sep='', collapse='\n'))
#
##
# #
####
# #
## ##
# # # #
########
# #
## ##
# # # #
#### ####
# # # #
## ## ## ##
# # # # # # # #
################
# #
## ##
# # # #
#### ####
# # # #
## ## ## ##
# # # # # # # #
######## ########
# # # #
## ## ## ##
# # # # # # # #
#### #### #### ####
# # # # # # # #
## ## ## ## ## ## ## ##
# # # # # # # # # # # # # # # #
################################
# #
## ##
# # # #
#### ####
# # # #
## ## ## ##
# # # # # # # #
######## ########
# # # #
## ## ## ##
# # # # # # # #
#### #### #### ####
# # # # # # # #
## ## ## ## ## ## ## ##
# # # # # # # # # # # # # # # #
################ ################
# # # #
## ## ## ##
# # # # # # # #
#### #### #### ####
# # # # # # # #
## ## ## ## ## ## ## ##
# # # # # # # # # # # # # # # #
######## ######## ######## ########
# # # # # # # #
## ## ## ## ## ## ## ##
# # # # # # # # # # # # # # # #
#### #### #### #### #### #### #### ####
# # # # # # # # # # # # # # # #
## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
################################################################