/// , 35 bajtów
/I///,*/+,//+/I//**,/,A//*/A//,//,I
Wypróbuj online!
Pobiera dane wejściowe unarne za pomocą symbolu *
, a dane wyjściowe unarne za pomocą symbolu A
. Jest to dozwolone w przypadku niektórych określonych języków, w tym /// ( meta )
Ponieważ nie ma możliwości przyjęcia danych wejściowych w ///, dane wejściowe powinny być zakodowane na stałe:
/I/«put input here»//,*/+,//+/I//**,/,A//*/A//,//,I
dla danych wejściowych = 4.
Objaśnienie: (przed czytania, trzeba wiedzieć, że tylko składnia ///
to /pattern/replacement/
, co zastąpi każde wystąpienie pattern
przez replacement
oraz \
na ucieczkę; inne znaki są drukowane na wyjściu)
Dla n=4
:
/I/****//,*/+,//+/I//**,/,A//*/A//,//,I Start program.
/I/****/ Replace all `I` in the program by the input.
/,*/+,//+/****//**,/,A//*/A//,//,**** Remaining part of the program.
/,*/+,/ Use the `,` as a scanner, scan through `*` after it and convert to `+`.
/+/****//**,/,A//*/A//,//++++, Note that only `*` in the second group is affected.
/+/****/ Replace all `+` (which is just created) by `n` asterisks (from the first `I` group)
/**,/,A//*/A//,//****************, Now at the last of the program before the `,` there are `n²` asterisks.
/**,/,A/ Scan the `,` to the left to perform division by 2:
replace each `**` by a `A` as the scanner `,` pass through.
/*/A//,//,AAAAAAAA Remaining program.
/*/A/ If there is any `*` remaining (if `n²` is odd), replace it with `A`.
/,// Remove the scanner `,`.
AAAAAAAA Output the result.