Bu fıkra şu ilginç alışverişi içerir:

"Güzel Fred," diye araya girdi Avi. "Peki yinelenen girişleri önlemek için bunu nasıl değiştirirdiniz?"

"Ah, sadece bunu negatif olana değiştir."

Bu iddia bağlamda doğru olmasa da, bunun mantıklı olan bazı makul kodları olup olmadığını merak ediyorum.

Buradaki zorluk, bu kriterlere uyan kod (bir program, bir işlev, ne olursa olsun) yazmaktır:

1. Kopyaları tutarak iki giriş listesini bir araya getirir. İsteğe bağlı olarak tamsayı olduklarını ve / veya listelerin kendilerinin benzersiz olduğunu varsayabilirsiniz. Tamsayıların pozitif olduğunu varsayamazsınız (bunu yapan tek cevap büyükbabadır).]
2. Kodun bir yerinde değişmez "1" görünür. Bunu değişmez "-1" olarak değiştirirseniz, kod aynı şeyi yinelemeleri kaldırarak yapar.
3. Kod sadece 1 / -1'den ayrılmaz. Örneğin, aramıyoruz if (1 < 1) removeDuplicates()veya [do_nothing, merge_with_dups, merge_without_dups][1].call().

Giriş ve çıkış seçtiğiniz herhangi bir makul biçimde olabilir. Bir örnek olabilir

[1,2],[2,3]->[1,2,2,3]işaret değişmeden önce ve [1,2,3]sonra.

Bu bir popülerlik yarışması. Gösteriş yapmak istemiyorsanız, kod golf değildir . Yaklaşık iki hafta içinde en yüksek oyu alan cevabı kabul edeceğim.

JavaScript

Geleneksel bir algoritma alın ve bir hata ile yazın:

function merge(a, b) {
  var ai = 0, bi = 0, oi = 0;
  var o = [];
  while (ai < a.length && bi < b.length) {
    var v = a[ai] < b[bi] ? a[ai++] : b[bi++];
    if (v !== o[oi + 1]) {
      o[oi++] = v;
    }
  }
  while (ai < a.length) o[oi++] = a[ai++];
  while (bi < b.length) o[oi++] = b[bi++];
  return o;
}

Bu kod tam olarak bir değişmez değer içerir 1. Olarak değiştirilirse -1, kopyalar kaldırılacaktır. Karşılaştırılabilir herhangi bir değerde kullanılabilir.

APL 22/23

← ⎕ aracılığıyla ekran girişi istenir ve önde gelen veya negatif olarak ayarlanırsa sıralı bir birleştirilmiş liste kopya olmadan döndürür.

(~1=0,-2=/v)/v←v[⍋v←⎕]

⎕:
    (1 2),(2 3)
1 2 2 3

(~¯1=0,-2=/v)/v←v[⍋v←⎕]

⎕:
    (1 2),(2 3)
1 2 3

Bayt sayaçları, tek bayt APL karakterlerinin bu sitede düzgün şekilde görüntülenmesi için UTF8'e dönüştürüldüğünü lütfen unutmayın.

k (18)

Geçerli herhangi bir liste türü için çalışmalı

{(*1#(::;?:))@x,y}

Misal:

k){(*-1#(::;?:))@x,y}[1 2 3 4;3 4 5 6]
1 2 3 4 5 6
k){(*1#(::;?:))@x,y}[1 2 3 4;3 4 5 6]
1 2 3 4 3 4 5 6

piton

def merge(a, b):
    return a + [i for i in b if i not in a*- 1]

darbe

Bağlamın ruhuna göre, bu program l, grepsatırdaki küçük harften önce eksi işareti eklerseniz, kopyaları kaldırır . IÖnceki satırın büyük harfinden önce veya 1sonraki satırdaki rakamdan önce eksi işareti eklerseniz , program farklı davranmaz.

Giriş dosyaları satır başına bir tamsayı içerir (bu, listelerin metin dosyaları olarak olağan temsilidir). Bunlar iki argüman olarak aktarılmalıdır. Ortaya çıkan liste standart çıkışa yazılır.

# Create temp file for working
temp=$(mktemp -d)
# Copy left and right file to merge into same
cp $1 $temp/l
cp $2 $temp/r
cd $temp

while read num
do
  # I remove the output
  set `grep -Lax -e $num l ` <r> /dev/null
  if [ $# != 1 ]
  then echo $num >>r
  fi
done <l

cp r /dev/stdout
cd
rm -r $temp

Bu programı bir röportajda en iyi kodunuzun bir örneği olarak kullanmaktan çekinmeyin. Tek istediğim bunun benim en iyi kodum olduğunu söylememen.

Tcl

Alıntı ruhu içinde

foreach item $list1 {
    if {$item in $list2} {set item [expr {$item * 1}]}
    lappend list2 $item
}
foreach item $list2 {
    if {$item >= 0} {lappend result $item}
}

Yineleniyorsa, negatif değerleri filtreledikten sonra (-) 1 ile çarpın.

PHP'de acemi değilim Doğru olup olmadığını bilmiyorum

$list1=explode(',',$_GET['list1']);
$list2=explode(',',$_GET['list2']);
$list_merged=array_merge($list1,$list2);
print_r($list_merged);
$list_unique=array_unique($list_merged);
print_r($list_unique);