Göre bu XKCD komik , bir ilişkide yaş farkı "ürpertici" olup olmadığını belirlemek için bir formül yok. Bu formül şöyle tanımlanır:

(Age/2) + 7

Çıkabileceğiniz asgari insan yaşı.

Bu nedenle, söz konusu ilişkideki kişilerden birinin diğerinin asgari yaşından daha genç olması durumunda bir ilişki ürperticidir.

İki kişinin yaşı göz önüne alındığında, bu ilişkinin ürpertici olup olmadığını ortaya çıkarabilir misiniz?

kurallar

1. Programınız girdi olarak iki ilişkiden iki insanın yaşı olarak alınmalıdır. Bunlar makul herhangi bir formatta alınabilir.

2. Ardından programınız, ilişkinin "ürpertici" olup olmadığına dair asılsız bir titizlik veya sahte değer vermelidir (Truthy = Creepy).

3. Standart boşluklara izin verilmez.
4. Bu yapboz Code Golf, yani bayt cinsinden en kısa kaynak koduna sahip cevap kazanıyor

Test Kılıfları

40, 40    - Not Creepy
18, 21    - Not Creepy
80, 32    - Creepy
15, 50    - Creepy
47, 10000 - Creepy
37, 38    - Not Creepy
22, 18    - Not Creepy

Jöle , 6 bayt

H+7>ṚṀ

Çevrimiçi deneyin!

Yoldaş'ınkinden biraz farklı bir algoritma.

Python 3 , 26 bayt

lambda x:max(x)/2+7>min(x)

Çevrimiçi deneyin!
Giriş, her iki yaştan oluşan bir listedir

05AB1E , 8 6 bayt

;7+R‹Z

Çevrimiçi deneyin! veya Tüm testi dene

         # Implicit Input: an array of the ages
;        # Divide both ages by 2
 7+      # Add 7 to both ages
   R     # Reverse the order of the ages
         #    this makes the "minimum age" line up with the partner's actual age
    ‹    # Check for less than the input (vectorized)
     Z   # Push largest value in the list

NAND kapılar, 551

Logisim ile oluşturuldu

Aynı prensip benim diğer yanıt , fakat 2 bayt işaretli girişler alır, bu yüzden işleyebilir 47, 10000. TÜM test durumları için çalışıyor!

Bu, 10000 16 bitin sadece 15'i ile ifade edilebildiği için verilen test durumları için uygun değildir, ancak aralıktaki herhangi bir yaş için işe yarar [-32768, 32768). Herhangi bir olumsuz yaşın geri döneceğini unutmayın 1.

Soldaki girişler (belirli bir düzen yok, üstte 1 bit). Çıktı sağ altta.

NAND kapılar, 274 262

Orijinal:

Daha iyi: Logisim ile düzenlendi

Bu, solda, 1-bit en üstünde 1-bit işaretli tamsayılar olarak iki girdi alır. Çıktı sol altta; Burada gerçeği ve falsey açık olmalıdır.

Dışında tüm test durumları için çalışıyor 47, 10000, bu yüzden teknik olarak geçerli bir cevap değil sanırım. Bununla birlikte, (güvenilir) kayıttaki en yaşlı kişi 122 idi, bu yüzden bu noktada mümkün olan her senaryo için 8 bit (en fazla 127) çalışacak. 16 bit sürümünü tamamladığımda yeni bir cevap göndereceğim (veya bunu değiştirmeli miyim?).

16-bit sürümü yapıldı!

Devrenin bazı dikey bölümlerini göreceksiniz. İlki (soldan) hangi girişin daha büyük olduğunu belirler. Sonraki iki girişleri sıralayan çoklayıcılar. Daha sonra 11111001dördüncü bölümde daha küçük olana (-7) ekliyorum ve bunu iki kez daha büyük girdiyle karşılaştırarak sonuçlandırıyorum. Daha az ise, ilişki ürpertici. Bitleri ikiye katladığımdan, kullanılmayan bitini dikkate almalıyım lesser-7. Eğer bu bir 1, o lesser-7zaman olumsuzdur ve ikisinden daha genç olan altı yaşından büyük değildir. Ürpertici. Bir OR geçidiyle bitirdim, yani ya sürünme testi geri gelirse 1, tüm devre yapar.

Eğer yakından bakarsanız, kullandığım olduğunu göreceksiniz yedi değişmeyen tek s (hardcoding 11111011ve sondaki 0). Bunu yaptım çünkü Logisim bir mantık geçidi için bir çıktı üretmek için en az bir değer giriyor. Bununla birlikte, bir sabit her kullanıldığında, iki NAND geçiti, sabitten 1bağımsız olarak bir değer sağlar.

-12 kapı bana teşekkürler !

C #, 22 bayt

n=>m=>n<m/2+7|m<n/2+7;

C, 29 bayt

#define f(a,b)a/2+7>b|b/2+7>a

Nasıl çalışır:

• #define f(a,b)fYazılmamış iki argüman alan bir makro fonksiyonunu tanımlar .
• a/2+7>b ilk yaşın iki artı yedi'ye bölünmesiyle ikinci yaştan büyük olup olmadığını kontrol eder.
• b/2+7>a ikinci yaşın iki artı yedi ile bölünmesinin ilk yaştan büyük olup olmadığını kontrol eder.
• Yukarıdaki değerlerden herhangi biri doğruysa, 1 değerini döndürün (ürpertici). Aksi takdirde, 0 değerini döndürün (ürpertici değil).

Çevrimiçi deneyin!

JavaScript (ES6), 21 bayt

a=>b=>a<b/2+7|b<a/2+7

Ürpertici olmayanlar için 0, ürpertici olanlar için 1 döndürür.

f=a=>b=>a<b/2+7|b<a/2+7

console.log(f(40)(40));
console.log(f(18)(21));
console.log(f(80)(32));
console.log(f(15)(50));
console.log(f(47)(10000));
console.log(f(37)(38));
console.log(f(22)(18));

R , 26 25 bayt

@Djhurio sayesinde -1 bayt

any(rev(a<-scan())<a/2+7)

Çevrimiçi deneyin!

Retina , 20 bayt

O`.+
^1{7}(1+)¶1\1\1

Çevrimiçi deneyin!

Giriş, iki sayı arasında bir satır besleme ile aynı düzeydedir. Çıktı 0(ürpertici değil) veya 1(ürpertici).

açıklama

O`.+

İki sayıyı sıralayın, böylece daha büyük olanın ikinci olduğunu biliyoruz.

^1{7}(1+)¶1\1\1

Küçük yaş ave büyük yaş çağırın b. İlk önce a-7grupta yakaladık 1. Sonra maç çalışır 2*(a-7)+1yılında b, yani b >= 2*(a-7)+1ya b >= 2*(a-7)ya b/2+7 > aürpertici bir ilişki için kriter olan.

TI-Basic, 20 10 9 bayt

max(2Ans<14+max(Ans

Timtech'in önerisinin bir listesini ve bir bölümünü kullanarak -10 bayt

Lirtosiast önerisini kullanarak -1 bayt

"{40,42}: prgmNAME" adlı iki yaş listesinde var

'Ürpertici değil' için 1 ve 'ürpertici değil' için 0 döndürür.

GNU APL 1.2, 23 bayt

İki argüman alan ve ürpertici ise 1, değilse 0 basan bir fonksiyon tanımlar.

∇A f B
(A⌊B)<7+.5×A⌈B
∇

açıklama

∇işlev başlar ve biter
A f Bişlev üstbilgisidir; fonksiyon olarak adlandırılır fve iki argüman alır Ave B(monadic olabilir APL içinde işlevlerini - tek bir argüman alacak - ya diyadik - iki argüman alarak)
A⌊Bolduğu min(A,B)ve A⌈Bbir max(A,B)
parantez doğru öncelik sağlanması için gerekli böylece, APL sağdan sola değerlendirilir

Diğer operatörler açıklayıcıdır.

Kod golf yapabiliyor olabilir, hala kod golf oynamak için yeniyim.

Python 3, 74 45 bayt

First Code Golf, muhtemelen korkunç.

@Phoenix tarafından 29 byte azalma

lambda a,b:0 if(a/2)+7>b or(b/2)+7>a else 1

JavaScript (ES6), 27 bayt

f=a=>b=>b>a?f(b)(a):b>a/2+7

Kıvrılma yok ( f(a,b)yerine çağrı gibi f(a)(b))

f=(a,b)=>b>a?f(b,a):b>a/2+7

Eğer b > a, parametreleri değiştirip tekrar deneyin. Aksi takdirde kontrol edin. Currying, özyinelemeli çağrı nedeniyle herhangi bir baytı kurtarmaz.

f=a=>b=>b>a?f(b)(a):b>a/2+7

console.log(f(18)(22))
console.log(f(22)(18))
console.log(f(18)(21))

Java, 21 bayt

a->b->a/2+7>b|b/2+7>a

Kesinlikle orijinal değil.

Test yapmak

Çevrimiçi deneyin!

import java.util.function.*;

public class Pcg122520 {
  static IntFunction<IntPredicate> f = a->b->a/2+7>b|b/2+7>a;
  public static void main(String[] args) {
    int[][] tests = {
      {40, 40},
      {18, 21},
      {80, 32},
      {15, 50},
      {47, 10000},
      {37, 38},
      {22, 18}
    };
    for (int[] test: tests) {
      System.out.printf("%d, %d - %s%n", test[0], test[1], f.apply(test[0]).test(test[1]) ? "Creepy" : "Not creepy");
    }
  }
}

Python 3, 31 bayt

lambda a,b:abs(a-b)>min(a,b)-14

Diğer python gönderimlerinden çok daha kısa değil, ama sürüngenliği kontrol etmek için biraz farklı bir yol buldum. Yaşlar arasındaki kabul edilebilir farkın min - 14'e eşit olduğunu fark ettim. Bu formülü cebirsel olarak yeniden düzenlemekten sonra gelir.

min = (max/2) + 7
min - 7 = max/2
2*min - 14 = max

dif = max - min
max = dif + min

2*min - 14 = dif + min
min - 14 = dif

Bu, iki sabite ihtiyaç duymadan ve ayrıca abs (ab) kullanmak yerine hem max hem de min kullanmaya gerek kalmadan çözmeme izin verdi. Golf perspektifinden bakıldığında, @ nocturama'nın çözümünden sadece bir bayt daha aldım, fakat bunu yapmak için biraz farklı bir formül kullandım.

Excel, 26 24 Bayt

Hücre aralığından sayılar olarak girdi alan A1:B1ve formül hücresine sürünürlüğü temsil eden bir boole değeri veren hücre formülü

=OR(A1/2+7>B1,B1/2+7>A1)

Eski Sürüm, 26 Bayt

=MAX(A1:B1)/2+7>MIN(A1:B1)

TI-Basic, 10 9 10 bayt

2min(Ans)-14≤max(Ans

"Ürpertici" ise ya da aksi takdirde Ansçıktıları listeler .10

Matematik , 16 bayt

Max@#/2+7<Min@#&

Çevrimiçi deneyin!

@GregMartin sayesinde -2 bayt

Ürpertici değil için doğru, ürpertici için yanlış.

            (* Argument: A list of integers     *)
Max@#       (* The maximum of the input         *)
 /2+7       (* Divided by 2, plus 7             *)
  <         (* Is less than?                    *)
   Min@#    (* The minimum of the input         *)
    &       (* Anonymous function               *)

SAS, 77 bayt

%macro t(a,b);%put%eval(%sysfunc(max(&a,&b))/2+7>%sysfunc(min(&a,&b)));%mend;

Röda , 16 bayt

{sort|[_<_/2+7]}

Çevrimiçi deneyin!

Bu, girişi girdi akışından iki hazır bilgi (dizi değil) olarak alan anonim bir işlevdir.

açıklama

{sort|[_<_/2+7]}                 Anonymous function
 sort                            Sorts the numbers in the input stream
     |[       ]                  And push
       _<                        whether the smaller value  is less than
         _/2+7                   the greater value / 2 + 7

Perl 6 , 15 bayt

{.max/2+7>.min}

Dene

Expanded

{ # bare block lambda with implicit parameter ｢$_｣
  # (input is a List)

  .max / 2 + 7
  >
  .min
}

Kristal , 44 27 bayt

-17 daniero'nun Ruby'deki cevabına bakmaktan .

def a(a)7+a.max/2>a.min end

Çevrimiçi deneyin!

Python 3 - 32 27 bayt

Yorum yapamıyorum, ancak diğer Python 3 çözümünden biraz daha kısa bir cevap aldım:

lambda *a:min(a)<max(a)/2+7

-5 @Cyoce!

Fourier, 37 bayt

oI~AI~B>A{1}{A~SA~BS~B}A/2+7>B{1}{@o}

FourIDE'da dene!

Giriş olarak iki sayı alır. Sonra golf oynayacak.

PHP, 29 Bayt

ürpertici için 1 yazdırır, ürpertici değil için hiçbir şey

<?=max($_GET)/2+7>min($_GET);

Çevrimiçi deneyin!

Japt , 11 bayt

true"Ürpertici" ve falsedeğil için döndürür .

wV /2+7>UmV

Çevrimiçi deneyin

açıklama

      :Implicit input of first integer U
wV    :Get the maximum of U and the second integer V
/2+7  :Divide by 2 & add 7
>     :Check if the result is greater than...
UmV   :the minimum of the two integers.

J, 10 bayt

<.<7+2%~>.

Çıkışlar 1, ürpertici değil 0ürpertici için

açıklama

<.          NB. the minimum
  >         NB. is greater than
    7+2%~>. NB. half the maximum + 7

J-uby , 25 bayt

:>%[:min,:max|~:/&2|:+&7]

Gibi ara f^[80,32]. Ürpertici truedeğil, ürpertici verir false.

açıklama

    :min                  # the minimum
:>%[    ,               ] # is greater than
         :max|            # the maximum...
              ~:/&2|        # over two...
                    :+&7    # plus 7 

AWK , 26 bayt

{$0=$1/2+7>$2||$2/2+7>$1}1

Çevrimiçi deneyin!

"Creepy" için 1, "Not Creepy" için 0 çıktı. Çıktıları sahte olmayan bir değer olarak kabul ederse, 3 byte tasarruf edilebilir:

$0=$1/2+7>$2||$2/2+7>$1