Podcast #128: We chat with Kent C Dodds about why he loves React and discuss what life was like in the dark days before Git. Listen now.
4 typo
source | link

APL (Dyalog), 23 bytes

' '⎕R'x'⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCaps⎕WG'DevCaps'Window Get Devviceice Capabilitiesabilities

 pick the first property (height, width)

 reverse

 format as text

' '⎕R'x'Replace spaces with "x"s

APL (Dyalog), 23 bytes

' '⎕R'x'⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

 reverse

 format as text

' '⎕R'x'Replace spaces with "x"s

APL (Dyalog), 23 bytes

' '⎕R'x'⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCaps'Window Get Device Capabilities

 pick the first property (height, width)

 reverse

 format as text

' '⎕R'x'Replace spaces with "x"s

3 fixed bug on small screens
source | link

APL (Dyalog), 24/2023 bytes

In version ≤ 15.0:

∊{⍵'x'⍺}/⍕¨⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

⍕¨ format each as text

{}/ reduce with the following function:

⍵'x'⍺ strand right-arg, "x", left-arg

 enlist (flatten)

In version 16.0 (currently in beta):

'x'@5⍕⌽⊃⎕WG'DevCaps'' '⎕R'x'⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

 reverse

 format as text

'x'@5' '⎕R'x' substituteReplace spaces with an "x" at position 5 (the space)"x"s

APL (Dyalog), 24/20 bytes

In version ≤ 15.0:

∊{⍵'x'⍺}/⍕¨⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

⍕¨ format each as text

{}/ reduce with the following function:

⍵'x'⍺ strand right-arg, "x", left-arg

 enlist (flatten)

In version 16.0 (currently in beta):

'x'@5⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

 reverse

 format as text

'x'@5 substitute with an "x" at position 5 (the space)

APL (Dyalog), 23 bytes

' '⎕R'x'⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

 reverse

 format as text

' '⎕R'x'Replace spaces with "x"s

2 fixed reversed order of dims, added explanation
source | link

APL (Dyalog), 24/1920 bytes

In version ≤ 15:

In version ≤ 15.0:

∊{⍺'x'⍵⍵'x'⍺}/⍕¨⊃⎕WG'DevCaps'

In version ≥ 16⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

⍕¨ format each as text

{}/ reduce with the following function:

⍵'x'⍺ strand right-arg, "x", left-arg

 enlist (flatten)

In version 16.0 (currently in beta):

'x'@5⍕⊃⎕WG'DevCaps''x'@5⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

 reverse

 format as text

'x'@5 substitute with an "x" at position 5 (the space)

APL (Dyalog), 24/19 bytes

In version ≤ 15:

∊{⍺'x'⍵}/⍕¨⊃⎕WG'DevCaps'

In version ≥ 16:

'x'@5⍕⊃⎕WG'DevCaps'

APL (Dyalog), 24/20 bytes

In version ≤ 15.0:

∊{⍵'x'⍺}/⍕¨⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

⍕¨ format each as text

{}/ reduce with the following function:

⍵'x'⍺ strand right-arg, "x", left-arg

 enlist (flatten)

In version 16.0 (currently in beta):

'x'@5⍕⌽⊃⎕WG'DevCaps'

⎕WG'DevCapsWindow Get Devvice Capabilities

 pick the first property (height, width)

 reverse

 format as text

'x'@5 substitute with an "x" at position 5 (the space)

1
source | link