f32←{                   ⍝ Conversion to 32-bit floats as ⎕DR 83.
    a←⍴w←,⍵
    b←⍉(a,64)⍴⌽((a),8)⍴11 ⎕DR⊃((⎕DR w),645)⎕DR w
    83 ⎕DR,⌽((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