Return to Answer

Commonmark migration

edited Jun 17, 2020 at 9:04

edited Jun 17, 2020 at 9:04

#R, 80 bytes

R, 80 bytes

Pretty repetitive :

function(h,v,a,b,c)cat(t<-c(a,rep(c,h),a,"\n"),d<-rep(c(b,"\n"),v),t,d,t,sep="")

Ungolfed :

function(h,v,a,b,c)
cat(t<-c(a,rep(c,h),a,"\n"),
 d<-rep(c(b,"\n"),v),
 t,d,t,
 sep="")

#R, 80 bytes

Pretty repetitive :

function(h,v,a,b,c)cat(t<-c(a,rep(c,h),a,"\n"),d<-rep(c(b,"\n"),v),t,d,t,sep="")

Ungolfed :

function(h,v,a,b,c)
cat(t<-c(a,rep(c,h),a,"\n"),
 d<-rep(c(b,"\n"),v),
 t,d,t,
 sep="")

Pretty repetitive :

function(h,v,a,b,c)cat(t<-c(a,rep(c,h),a,"\n"),d<-rep(c(b,"\n"),v),t,d,t,sep="")

Ungolfed :

function(h,v,a,b,c)
cat(t<-c(a,rep(c,h),a,"\n"),
 d<-rep(c(b,"\n"),v),
 t,d,t,
 sep="")

answered Sep 4, 2016 at 10:52

answered Sep 4, 2016 at 10:52

#R, 80 bytes

Pretty repetitive :

function(h,v,a,b,c)cat(t<-c(a,rep(c,h),a,"\n"),d<-rep(c(b,"\n"),v),t,d,t,sep="")

Ungolfed :

function(h,v,a,b,c)
cat(t<-c(a,rep(c,h),a,"\n"),
 d<-rep(c(b,"\n"),v),
 t,d,t,
 sep="")