f32←{                   ⍝ Conversion to 32-bit floats as ⎕DR 83.
    a←⍴w←,⍵
    b←⍉(a,64)⍴⌽((8×a),8)⍴11 ⎕DR⊃((⎕DR w),645)⎕DR w
    83 ⎕DR,⌽((4×a),8)⍴(0≠w)∧[1]⍉(23↑29↓b)⍪(⊖(8⍴2)⊤¯896+2⊥⊖52↓¯1↓b)⍪b[64;]
}

code_colours

test script

Back to: notes

Back to: Workspaces