[Turn on line numbering]arg n; var x, y; return map x in [1 .. n] to (map y in [1 .. n] to (x == y ? 1.0 : 0.0));
["// Various Contributors, including: Miroslav Silovic, Bruce Mitchner, Nolan, Sean R. Lynch, Technobunny", "// Created 19-Oct-1996 as a part of ColdCore, see: @help Credit"]