Return to Revisions

13 of 13

deleted 16 characters in body

edited Feb 10, 2021 at 22:32

Blocks, 52 62 82 87 51 bytes

::`+`1|U;{`*`1}|A;`+`1,0+`1={`1^2}|;0+`,`1+`={`^2}|

Ungolfed:

:: ` + `1 | Expand; {` * `1} | SetAll; ` + `1, 0 + `1 = {`1 ^ 2} | Set; 0 + `, `1 + ` = {` ^ 2} | Set

answered Oct 20, 2015 at 3:34