Menurut komik XKCD ini , ada rumus untuk menentukan apakah kesenjangan usia dalam suatu hubungan "menyeramkan" atau tidak. Formula ini didefinisikan sebagai:

(Age/2) + 7

menjadi usia minimum orang yang bisa Anda kencani.

Karena itu suatu hubungan menyeramkan jika salah satu dari orang-orang dalam hubungan tersebut lebih muda dari usia minimum yang lain.

Mengingat usia dua orang, dapatkah Anda memberi tahu apakah hubungan itu menyeramkan atau tidak?

Aturan

1. Program Anda harus mengambil dua bilangan bulat sebagai input, usia kedua orang dalam hubungan. Ini dapat diambil dalam format apa pun yang wajar.

2. Program Anda kemudian harus menghasilkan nilai yang benar atau salah yang menggambarkan apakah hubungannya "menyeramkan" atau tidak (Truthy = Creepy).

3. Tidak ada celah standar.
4. Teka-teki ini adalah Code Golf, jadi jawabannya dengan kode sumber terpendek dalam byte akan menang

Uji Kasus

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

Jelly , 6 byte

H+7>ṚṀ

Cobalah online!

Algoritma yang nampak berbeda dari milik Kamerad.

Python 3 , 26 byte

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

Cobalah online!
Input adalah daftar dengan kedua usia

05AB1E , 8 6 byte

;7+R‹Z

Cobalah online! atau Coba semua tes

         # 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

Gerbang NAND, 551

Dibuat dengan Logisim

Prinsip yang sama dengan jawaban saya yang lain , tetapi membutuhkan input yang ditandatangani 2-byte, sehingga dapat ditangani 47, 10000. Bekerja untuk SEMUA kasus uji!

Ini tidak optimal untuk kasus uji yang diberikan, karena 10.000 dapat dinyatakan dengan hanya 15 dari 16 bit, tetapi bekerja untuk segala usia dalam kisaran [-32768, 32768). Perhatikan bahwa segala usia negatif akan kembali 1.

Input di sebelah kiri (tanpa urutan tertentu, 1-bit di atas). Output di kanan bawah.

Gerbang NAND, 274 262

Asli:

Lebih baik: Dibuat dengan Logisim

Ini mengambil dua input di sebelah kiri sebagai integer bertanda 1-byte, dengan 1-bit di bagian atas. Output ada di kiri bawah; kebenaran dan kepalsuan di sini harus jelas.

Berfungsi untuk semua kasus uji kecuali 47, 10000, jadi saya kira ini secara teknis bukan jawaban yang valid. Namun, orang tertua pada catatan (dapat diandalkan) adalah 122, jadi 8 bit (maks 127) akan bekerja untuk setiap skenario yang pernah ada hingga saat ini. Saya akan memposting jawaban baru (atau saya harus mengedit yang ini?) Ketika saya menyelesaikan versi 16-bit.

Versi 16-bit selesai!

Anda akan melihat beberapa bagian vertikal dari rangkaian. Yang pertama (dari kiri) menentukan input mana yang lebih besar. Dua berikutnya adalah multiplexer, mengurutkan input. Saya kemudian menambahkan 11111001(-7) ke yang lebih rendah di bagian keempat, dan saya menyimpulkan dengan membandingkan dua kali ini dengan input yang lebih besar. Jika kurang, hubungan itu menyeramkan. Karena saya menggeser bit menjadi dua kali lipat, saya harus memperhitungkan bit yang tidak digunakan lesser-7. Jika ini adalah 1, maka lesser-7negatif, dan yang lebih muda dari keduanya tidak lebih dari enam. Mengerikan. Saya selesai dengan gerbang OR, jadi jika tes creepiness kembali 1, seluruh rangkaian tidak.

Jika Anda melihat dekat, Anda akan melihat bahwa saya menggunakan tujuh satu konstan s (hardcoding 11111011dan trailing 0). Saya melakukan ini karena Logisim membutuhkan setidaknya satu nilai masuk untuk gerbang logika untuk menghasilkan output. Namun, setiap kali konstanta digunakan, dua gerbang NAND memastikan 1nilai terlepas dari konstanta.

-12 gerbang berkat saya !

C #, 22 byte

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

C, 29 byte

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

Bagaimana itu bekerja:

• #define f(a,b)mendefinisikan fungsi makro fyang mengambil dua argumen yang tidak diketik.
• a/2+7>b memeriksa apakah usia pertama dibagi dua plus tujuh lebih besar dari usia kedua.
• b/2+7>a memeriksa apakah usia kedua dibagi dua ditambah tujuh lebih besar dari usia pertama.
• Jika salah satu dari nilai-nilai di atas adalah benar, kembalikan 1 (menyeramkan). Jika tidak, kembalikan 0 (tidak menyeramkan).

Cobalah online!

JavaScript (ES6), 21 byte

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

Mengembalikan 0 karena tidak menyeramkan, 1 untuk menyeramkan.

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 byte

-1 byte terima kasih kepada @djhurio

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

Cobalah online!

Retina , 20 byte

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

Cobalah online!

Input tidak digunakan dengan umpan baris antara dua angka. Outputnya 0(tidak menyeramkan) atau 1(menyeramkan).

Penjelasan

O`.+

Sortir kedua angka, jadi kita tahu bahwa yang lebih besar adalah yang kedua.

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

Sebut usia yang lebih kecil adan usia yang lebih besar b. Kami pertama-tama menangkap a-7dalam grup 1. Kemudian kita mencoba untuk mencocokkan 2*(a-7)+1di b, yang berarti b >= 2*(a-7)+1atau b >= 2*(a-7)atau b/2+7 > ayang merupakan kriteria untuk hubungan menyeramkan.

TI-Basic, 20 10 9 byte

max(2Ans<14+max(Ans

-10 byte dengan menggunakan daftar dan bagian dari saran Timtech

-1 byte menggunakan saran lirtosiast

Dibawa dalam daftar dua zaman, "{40,42}: prgmNAME"

Mengembalikan 1 untuk 'menyeramkan' dan 0 untuk 'tidak menyeramkan'.

GNU APL 1.2, 23 byte

Menentukan fungsi yang mengambil dua argumen dan mencetak 1 jika menyeramkan, 0 jika tidak.

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

Penjelasan

∇memulai dan mengakhiri fungsi
A f Badalah tajuk fungsi; fungsi dinamai fdan mengambil dua argumen, Adan B(fungsi dalam APL dapat bersifat monadik - mengambil satu argumen - atau diad - mengambil dua argumen)
A⌊Badalah min(A,B)dan A⌈Bsedang max(A,B)
APL dievaluasi dari kanan ke kiri, sehingga tanda kurung diperlukan untuk memastikan prioritas yang tepat.

Operator lain cukup jelas.

Kode mungkin bisa golf, saya masih baru untuk kode-golf.

Python 3, 74 45 byte

Golf Kode Pertama, mungkin mengerikan.

Pengurangan 29 byte oleh @Phoenix

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

JavaScript (ES6), 27 byte

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

Tanpa currying (suka panggilan f(a,b)alih - alih f(a)(b))

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

Jika b > a, tukar parameter dan coba lagi. Kalau tidak, periksa. Currying tidak menyimpan byte karena panggilan rekursif.

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 byte

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

Sama sekali tidak asli.

Pengujian

Cobalah online!

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 byte

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

Tidak jauh lebih pendek dari kiriman python lainnya, tetapi saya menemukan cara yang sedikit berbeda untuk memeriksa creepiness. Saya perhatikan bahwa perbedaan yang dapat diterima antara usia sama dengan min - 14. Ini mengikuti dari aljabar menyusun ulang rumus.

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

Ini biarkan saya menyelesaikan tanpa membutuhkan dua konstanta, dan juga tanpa perlu menggunakan max dan min, alih-alih menggunakan abs (ab). Dari perspektif golf saya hanya mendapat satu byte kurang dari solusi @ nocturama, tetapi saya menggunakan formula yang sedikit berbeda untuk melakukannya.

Excel, 26 24 Bytes

Rumus sel yang mengambil input sebagai angka dari rentang sel A1:B1dan menghasilkan nilai boolean yang mewakili creepiness ke sel rumus

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

Versi Lama, 26 Bytes

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

TI-Basic, 10 9 10 byte

2min(Ans)-14≤max(Ans

Daftar input dari Ans, keluaran 1jika "menyeramkan" atau 0sebaliknya.

Matematika , 16 byte

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

Cobalah online!

-2 byte terima kasih kepada @GregMartin

Benar untuk tidak menyeramkan, salah untuk menyeramkan.

            (* 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 byte

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

Röda , 16 byte

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

Cobalah online!

Ini adalah fungsi anonim yang mengambil input sebagai dua literal (bukan array) dari aliran input.

Penjelasan

{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 byte

{.max/2+7>.min}

Cobalah

Diperluas

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

  .max / 2 + 7
  >
  .min
}

Crystal , 44 27 byte

-17 dari melihat jawaban daniero di Ruby.

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

Cobalah online!

Python 3 - 32 27 byte

Tidak dapat berkomentar, tapi saya mendapat jawaban yang sedikit lebih pendek daripada solusi Python 3 lainnya:

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

-5 terima kasih kepada @Cyoce!

Fourier, 37 byte

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

Cobalah di FourIDE!

Mengambil dua angka sebagai input. Will golf nanti.

PHP, 29 Bytes

mencetak 1 untuk menyeramkan, tidak ada untuk Tidak menyeramkan

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

Cobalah online!

Japt , 11 byte

Pengembalian trueuntuk "menyeramkan" dan falseuntuk tidak.

wV /2+7>UmV

Cobalah online

Penjelasan

      :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 byte

<.<7+2%~>.

Output 1untuk tidak menyeramkan, 0untuk menyeramkan

Penjelasan

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

J-uby , 25 byte

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

Sebut seperti f^[80,32]. Memberi trueuntuk tidak menyeramkan, falseuntuk menyeramkan.

Penjelasan

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

AWK , 26 byte

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

Cobalah online!

Output 1 untuk "Creepy" dan 0 untuk "Not Creepy". Dapat menghemat 3 byte jika tidak ada output yang dapat dianggap sebagai nilai palsu, melalui:

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