f=: 3 : 0 select. y case. 0 do. 0 0 0 case. 1 do. 0 0 1 case. 2 do. 0 1 0 case. 3 do. 0 1 1 case. 4 do. 1 0 0 case. 5 do. 1 0 1 case. 6 do. 1 1 0 end. )
br=: 3 : 0 > f &.> y ) br 0 0 0 0 br 2 0 1 0 br i.5 0 0 0 0 0 1 0 1 0 0 1 1 1 0 0 2011/12/27 Kip Murray <k...@math.uh.edu> > Can you write a verb br which returns the binary representation of y > without using #: or #. ? > > br 0 > 0 > br 2 > 1 0 > br i. 5 > 0 0 0 > 0 0 1 > 0 1 0 > 0 1 1 > 1 0 0 > br _13 > |domain error: br > | br _13 > > An inverse I like is > > bv =: (2 p.~ |.)"1 :. br > > bv br i. 5 > 0 1 2 3 4 > ---------------------------------------------------------------------- > For information about J forums see http://www.jsoftware.com/forums.htm > -- Björn Helgason, Verkfræðingur Fornustekkum II 781 Hornafirði, t-póst: gos...@gmail.com gsm: +3546985532 twitter: @flugfiskur http://groups.google.com/group/J-Programming Tæknikunnátta höndlar hið flókna, sköpunargáfa er meistari einfaldleikans góður kennari getur stigið á tær án þess að glansinn fari af skónum /|_ .-----------------------------------. ,' .\ / | Með léttri lund verður | ,--' _,' | Dagurinn í dag | / / | Enn betri en gærdagurinn | ( -. | `-----------------------------------' | ) | (\_ _/) (`-. '--.) (='.'=) ♖♘♗♕♔♙ `. )----' (")_(") ☃☠ ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
