Data update

Task/Bulls-and-cows/APL/bulls-and-cows-1.apl

@@ -1,10 +1,4 @@
-input   ← {⍞←'Guess: ' ⋄ 7↓⍞}
-output  ← {⎕←(↑'Bulls: ' 'Cows: '),⍕⍪⍵ ⋄ ⍵}
-isdigits← ∧/⎕D∊⍨⊢
-valid   ← isdigits∧4=≢
-guess   ← ⍎¨input⍣(valid⊣)
-bulls   ← +/=
-cows    ← +/∊∧≠
-game    ← (output ⊣(bulls,cows) guess)⍣(4 0≡⊣)
-random  ← 1+4?9
-moo     ← 'You win!'⊣(random game⊢)
+output← {⎕←(↑'Bulls: ' 'Cows: '),⍕⍪⍵ ⋄ ⍵}
+guess ← ⍎¨{⍞←'Guess: ' ⋄ 7↓⍞}⍣((∧/⍤∊∘⎕D ∧ 4=≢)⊣)
+game  ← (output ⊣ (+/⍤= , ∊+/⍤∧≠) guess)⍣(4 0≡⊣)
+moo   ← 'You win!'⊣(1+4?9⍨)game⊢