Uiua SBCS , 19(削除) 19 (削除ここまで) 12 bytes
⬚@0円∵⍜∩⍜∩(⋯-@0円)⍜∩⋯⬚0≠⬚0≠
-7 thanks to Tbw
⬚@0円∵⍜∩⍜∩(⋯-@0円)⍜∩⋯⬚0≠⬚0≠
∵ ⍜∩( ) # mapunder overboth; correspondingcall charsa w/function, dyadicthen function
⬚@0円another, then invert the first on two things
-@0円 # paddingconvert shorterstring inputto w/code nullpoints
⋯ ⍜∩(-@0円) # applyconvert to code pointsbits
⬚0≠ # are ⍜∩⋯⬚0≠they not #equal? xor(0 as default)
Uiua SBCS , 19 bytes
⬚@0円∵⍜∩(-@0円)⍜∩⋯⬚0≠
⬚@0円∵⍜∩(-@0円)⍜∩⋯⬚0≠
∵ # map over corresponding chars w/ dyadic function
⬚@0円 # padding shorter input w/ null
⍜∩(-@0円) # apply to code points
⍜∩⋯⬚0≠ # xor
Uiua SBCS , (削除) 19 (削除ここまで) 12 bytes
⍜∩(⋯-@0円)⬚0≠
-7 thanks to Tbw
⍜∩(⋯-@0円)⬚0≠
⍜∩( ) # under both; call a function, then another, then invert the first on two things
-@0円 # convert string to code points
⋯ # convert to bits
⬚0≠ # are they not equal? (0 as default)
Uiua SBCS , 19 bytes
⬚@0円∵⍜∩(-@0円)⍜∩⋯⬚0≠
⬚@0円∵⍜∩(-@0円)⍜∩⋯⬚0≠
∵ # map over corresponding chars w/ dyadic function
⬚@0円 # padding shorter input w/ null
⍜∩(-@0円) # apply to code points
⍜∩⋯⬚0≠ # xor