Program Anda harus menemukan semua kata dalam daftar kata ini yang berisi semua vokal ( a e i o u y). Ada cara mudah untuk melakukan ini, tetapi saya mencari jawaban terpendek. Saya akan mengambil bahasa apa pun, tetapi saya ingin melihat Bash.

Berikut ini sebuah contoh (bisa lebih ditingkatkan):

cat wordlist.txt | grep "a" | grep "e" | grep "i" | grep "o" | grep "u" | grep "y"

Skor Anda adalah panjang kode.

-5 poin untuk menghitung semua kemunculan kata.

Skor terendah menang.

GolfScript, 20 karakter - 5 = 15 poin

n%{'aeiouy'\-!},.,+`

Berdasarkan solusi Howard , tetapi menggunakan tes yang lebih pendek ( \-!menghemat satu karakter &,6=), penambahan panjang yang lebih pendek ( .,+= 3 karakter) dan format output yang lebih pendek (tidak ada yang mengatakan bahwa output harus dipisahkan dengan baris baru, jadi `simpan satu karakter lebih n*).

Inilah hasilnya, diberikan daftar kata huruf kecil sebagai input (linebreak dimasukkan untuk dibaca):

["abstemiously" "authoritatively" "behaviourally" "consequentially" "counterrevolutionary"
"disadvantageously" "educationally" "encouragingly" "eukaryotic" "evolutionarily"
"evolutionary" "exclusionary" "facetiously" "gregariously" "heterosexuality" "homosexuality"
"importunately" "inconsequentially" "instantaneously" "insurrectionary" "intravenously"
"manoeuvrability" "neurologically" "neurotically" "ostentatiously" "pertinaciously"
"precariously" "precautionary" "questionably" "revolutionary" "simultaneously"
"supersonically" "tenaciously" "uncomplimentary" "uncontroversially" "unconventionally"
"undemocratically" "unemotionally" "unequivocally" "uninformatively" "unintentionally"
"unquestionably" "unrecognisably" 43]

(Mz. Secara teknis, mengingat bahwa tantangannya hanya mengatakan bahwa kode harus bekerja untuk input spesifik ini, n%{'aeiouy'\-!},`43akan menjadi satu karakter yang lebih pendek. Namun saya menganggap itu curang.)

Penjelasan:

• n% membagi input pada baris baru ke dalam array.
• { }, adalah operator "grep", yang mengeksekusi kode antara kawat gigi untuk setiap elemen array dan memilih yang mengembalikan nilai sebenarnya.
  • Di dalam loop, 'aeiouy'\-ambil string literal aeiouydan menghapus setiap karakter yang ditemukan dalam kata kandidat. The !maka secara logis meniadakan string yang dihasilkan, menghasilkan 1(benar) jika string kosong dan 0(palsu) jika tidak.
• .,+ membuat salinan array yang difilter, menghitung jumlah kata di dalamnya, dan menambahkan hasilnya ke array asli.
• Akhirnya, `un-eval array, mengubahnya menjadi representasi string dari isinya. (Tanpa itu, kata-kata dalam array hanya akan digabungkan dalam output, menghasilkan kekacauan yang tidak dapat dibaca.)

GolfScript, 19 karakter

n%{'aeiouy'&,6=},n*

Pemakaian:

golfscript vowels.gs < wordlist.txt

Keluaran:

abstemiously
authoritatively
behaviourally
[...]
uninformatively
unintentionally
unquestionably
unrecognisably

Jika Anda juga ingin menampilkan jumlah pada akhirnya Anda dapat menggunakan

n%{'aeiouy'&,6=},.n*n@,

yang empat karakter lebih panjang.

Python - 46 karakter

filter(lambda x:set(x)>=set("AEIOUY"),open(f))

Versi yang mudah dibaca: Ini sudah cukup mudah dibaca :-)

APL, 21 - 5 = 16

(,≢)w/⍨∧⌿'aeiouy'∘.∊w

Berharap untuk menemukan daftar kata sebagai w. Mengembalikan daftar kata-kata yang berisi semua vokal, ditambah hitungannya. Diuji dengan apl ngn . Ini sebuah contoh .

Penjelasan

         'aeiouy'∘.∊w   # generate a truth table for every vowel ∊ every word
       ∧⌿               # reduce with ∧ along the rows (vowels)
    w/⍨                 # select the words that contain all the vowels
(,≢)                    # hook: append to the list its own tally

Ruby 38

Sunting 34: Terbaik sejauh ini (dari @OI):

a.split.select{|w|'aeiouy'.count(w)>5} 

Sunting 1: Saya baru saja memperhatikan pertanyaan yang meminta 'y' untuk dimasukkan di antara vokal, jadi saya telah mengedit pertanyaan saya sesuai. Seperti yang ditunjukkan oleh @Nik dalam komentar atas jawabannya, "aeiouy".charsadalah satu karakter kurang dari itu %w[a e i o u y], tetapi saya akan meninggalkan yang terakhir, untuk keberagaman, meskipun saya mempertaruhkan mimpi buruk atas kesempatan yang hilang.

Sunting 2: Terima kasih kepada @OI karena telah menyarankan peningkatan:

s.split.select{|w|'aeiouy'.delete(w)==''}

yang menyimpan 11 karakter dari apa yang saya miliki sebelumnya.

Sunting 3 dan 3a: @OI telah menghapus beberapa hal lagi:

s.split.select{|w|'aeiouy'.tr(w,'')==''}

kemudian

s.split.reject{|w|'aeiouy'.tr(w,'')[1]}

dan lagi (3b):

a.split.select{|w|'aeiouy'.count(w)>5} 

Saya hanyalah juru tulis!

Berikut adalah dua solusi yang lebih rumit:

s.split.group_by{|w|'aeiouy'.delete(w)}['']       (43)
s.gsub(/(.+)\n/){|w|'aeiouy'.delete(w)==''?w:''} (48)

Awalnya saya punya:

s.split.select{|w|(w.chars&%w[a e i o u y]).size==6}

sadalah string yang berisi kata-kata, dipisahkan oleh baris baru. Sejumlah kata dari syang berisi kelima vokal dikembalikan. Untuk pembaca yang tidak terbiasa dengan Ruby, %w[a e i o u y] #=> ["a", "e", "i", "o", "u", "y"]dan& merupakan persimpangan array.

Seharusnya

s = "abbreviations\nabduction\n"
s.split #=> ["abbreviations", "abduction"] 

Di blok {...}, awalnya

w             #=> "abbreviations"
w.chars       #=> ["a", "b", "b", "r", "e", "v", "i", "a", "t", "i", "o", "n", "s"]
w.chars & %w[a e i o u y] #=> ["a", "e", "i", "o"]
(w.chars & %w[a e i o u y]).size == 6 #=> (4 == 6) => false,

jadi "singkatan" tidak dipilih.

Jika string smungkin berisi duplikat, s.split.select...bisa diganti dengan s.split.uniq.select...menghapus duplikat.

Hanya melihat aku bisa menghemat 1 Char dengan mengganti size==6dengan size>5.

Haskell - 67

main=interact$unlines.filter(and.flip map "aeiouy".flip elem).lines

Ruby - 28 karakter (atau 27 jika ydikecualikan dari vokal)

("ieaouy".chars-s.chars)==[]

Perintah lengkap untuk menjalankan adalah (48 karakter):

ruby -nle 'p $_ if ("ieaouy".chars-$_.chars)==[]'

EDIT: diganti putsdengan pseperti yang disarankan oleh @CarySwoveland

AWK - 29

/ a / && / e / && / i / && / o / && / u / && / y /

Untuk menjalankan: Simpan daftar kata huruf kecil ke wordlist.txt . Lalu, lakukan:

mawk "/ a / && / e / && / i / && / o / && / u / && / y /" wordlist.txt

Jika sistem Anda tidak memiliki mawk,awk dapat digunakan juga.

Anda juga dapat menjalankannya dari file dengan menyimpan program ke program.awkdan melakukan mawkatau awk -f program.awk.

Python, 45 karakter

[w for w in open(f) if set('aeiouy')<=set(w)]

k [22-5 = 17 karakter]

Saya telah mengganti nama file "corncob_lowercase.txt" menjadi "w"

Hitung kata-kata [22 karakter]

+/min'"aeiouy"in/:0:`w

Keluaran

43

Temukan semua kata [25 karakter]

x@&min'"aeiouy"in/:x:0:`w

Secara keseluruhan 43 kata berisi semua vokal (a e i o u y)

Keluaran

"abstemiously"
"authoritatively"
"behaviourally"
..
..
"unintentionally"
"unquestionably"
"unrecognisably"

Javascript / JScript 147 (152-5), 158 (163-5) atau 184 (189-5) byte:

Ini adalah versi Javascript dan JScript saya yang mengerikan "ungolfyfied" (164 152 152-5 = 147 byte):

function(s,k,z,x,i,c,r){c='aeiouy'.split('');r=[];for(k in s=(s+'').split(/\b/)){i=0;for(z in c)i+=s[k].indexOf(c[z])>=0;i==6&&(r[r.length]=s[k]);}return r;}

function(s,k,z,x,i,c,r){c='aeiouy'.split('');r=[];for(k in s=(s+'').split(/\b/)){i=6;for(z in c)i-=!!s[k].search(c[z]);i&&(r[r.length]=s[k]);}return r;}

Terima kasih @ GaurangTandon untuk search()fungsinya, yang menyelamatkan saya satu byte!

RegExp berbasis dengan kinerja HORRIBLE , tetapi mendukung huruf besar dan kecil (163-5 = 158 byte):

function(s,k,z,x,i,c,r){c='aeiouy'.split('');r=[];for(k in s=(s+'').split(/\b/)){i=0;for(z in c)i+=RegExp(c[z],'i').test(s[k]);i==6&&(r[r.length]=s[k]);}return r;}

Berbasis RegExp dengan kinerja LEBIH BAIK , NAMUN membutuhkan lebih banyak byte (189-5 = 184 byte):

function(s,k,z,x,i,c,r,l){l=[];r=[];for(z in c='aeiouy'.split(''))l[z]=RegExp(c[z],'i');for(k in s=(s+'').split(/\b/)){i=0;for(z in c)i+=l[z].test(s[k]);i==6&&(r[r.length]=s[k]);}return r;}

Yang ini hanya untuk bersenang-senang (175-5 byte) dan tidak akan dihitung sebagai jawaban:

function(s,k,z,x,i,c,r){c='aeiouy'.split('');r=[];for(k in s=(s+'').split(/\b/)){i=0;for(z in c)i+=s[k].indexOf(c[z])>=0;i==6&&(r[r[r.length]=s[k]]=1+(r[s[k]]||0));}return r;}

Ini didasarkan pada jawaban pertama, tetapi memiliki 'twist': Anda dapat mengetahui berapa kali sebuah kata telah ditemukan.

Anda cukup melakukan ini:

var b=(function(s,k,z,x,i,c,r){c='aeiouy'.split('');r=[];for(k in s=(s+'').split(/\b/)){i=0;for(z in c)i+=s[k].indexOf(c[z])>=0;i==6&&(r[r[r.length]=s[k]]=1+(r[s[k]]||0));}return r;})('youaie youaie youaie youaie a word');

b.youaie //should be 4

Karena itu lengthtidak memiliki semua vokal, itu tidak akan dihapus dan masih akan menjadi jawaban untuk bonus.

Bagaimana Anda menyebutnya?

"Sederhana": Anda membungkus fungsi di dalamnya ()dan kemudian menambahkannya ('string goes here');sampai akhir.

Seperti ini: (function(s,k,z,x,i,c,r){c='aeiouy'.split('');r=[];for(k in s=(s+'').split(/\b/)){i=0;for(z in c)i+=s[k].indexOf(c[z])>=0;i==6&&(r[r.length]=s[k]);}return r;})('a sentence youyoy iyiuyoui yoiuae oiue oiuea');

Contoh ini akan mengembalikan array hanya dengan 1 string: yoiuae

Saya tahu ini adalah solusi terburuk, tetapi berhasil!

Mengapa saya menghitung -5?

Nah, array Javascript / JScript memiliki properti ( length) dalam array yang memberitahu jumlah elemen yang dimilikinya.

Setelah dikonfirmasi dalam pertanyaan, bonus -5 adalah untuk memberi tahu jumlah kata.

Karena jumlah kata ada di properti itu, secara otomatis saya mendapat skor -5.

Ruby 39 38

Saat ini entri Ruby terpendek saat menghitung seluruh program termasuk input dan output.

Menyimpan char dengan menggunakan mapalih-alih each:

$<.map{|w|w*5=~/a.*e.*i.*o.*u/m&&p(w)}

Versi lain, 39 karakter dengan output yang lebih cantik:

puts$<.select{|w|w*5=~/a.*e.*i.*o.*u/m}

Kedua program mengambil input dari stdin atau sebagai nama file yang diteruskan sebagai argumen baris perintah:
$ ruby wovels.rb wordlist.txt

Harganya 3 karakter tambahan untuk dimasukkan ysebagai wovel.

Mathematica (65 atau 314)

Dua pendekatan yang sangat berbeda, yang lebih baik diusulkan oleh Belisarius dalam komentar untuk tanggapan awal saya. Pertama, usaha saya yang brutal, yang secara algoritmik menghasilkan setiap kemungkinan ekspresi reguler yang cocok dengan kombinasi enam vokal (termasuk "y"), dan kemudian memeriksa setiap kata dalam daftar kata target dengan setiap 720 ekspresi reguler ini. Ini bekerja, tetapi tidak terlalu ringkas dan lambat.

b = Permutations[{"a", "e", "i", "o", "u","y"}]; Table[
 Select[StringSplit[
  URLFetch["http://www.mieliestronk.com/corncob_lowercase.txt"]], 
  StringMatchQ[#, (___ ~~ b[[i]][[1]] ~~ ___ ~~ 
      b[[i]][[2]] ~~ ___ ~~ b[[i]][[3]] ~~ ___ ~~ 
      b[[i]][[4]] ~~ ___ ~~ b[[i]][[5]]~~ ___ ~~ b[[i]][[6]] ~~ ___)] &], {i, 1, 
  Length[b]}]

~ 320 karakter. Beberapa dapat diselamatkan dengan menggunakan notasi alternatif, dan karakter tambahan hilang mempersiapkan file kamus sebagai daftar string (format alami untuk kamus dalam Mathematica. Bahasa lain mungkin tidak memerlukan persiapan ini, tetapi Mathematica melakukannya). Jika kita menghilangkan langkah itu, menganggapnya telah ditangani untuk kita, pendekatan yang sama dapat dilakukan dalam kurang dari 250 karakter, dan jika kita menggunakan kamus bawaan Mathematica, kita mendapatkan penghematan yang lebih besar,

Map[DictionaryLookup[(___ ~~ #[[1]] ~~ ___ ~~ #[[2]] ~~ ___ ~~ #[[3]] 
~~ ___ ~~ #[[4]] ~~ ___ ~~ #[[5]]~~ ___ ~~ #[[6]] ~~ ___) .., IgnoreCase -> True] &, 
 Permutations[{"a", "e", "i", "o", "u","y"}]]

Di bawah 200 karakter. Menghitung jumlah kata yang ditemukan hanya memerlukan melewati hasilnya Length[Flatten[]], yang dapat ditambahkan di sekitar blok kode di atas, atau dapat dilakukan setelahnya dengan, misalnya Length@Flatten@%,. Daftar kata yang ditentukan untuk tantangan ini menghasilkan 43 pertandingan, dan kamus Mathematica memberikan 64 (dan jauh lebih cepat). Setiap kamus memiliki kata-kata yang cocok tidak di yang lain. Mathematica menemukan "secara tidak profesional," misalnya, yang tidak ada dalam daftar bersama, dan daftar bersama menemukan "eukariotik," yang tidak ada dalam kamus Mathematica.

Belisarius mengusulkan solusi yang jauh lebih baik. Dengan asumsi daftar kata sudah disiapkan dan ditugaskan ke variabel l, ia mendefinisikan tes tunggal berdasarkan StringFreeQ[]fungsi Mathematica , kemudian menerapkan tes ini ke daftar kata menggunakan Pick[]fungsi. 65 karakter, dan sekitar 400 kali lebih cepat dari pendekatan saya.

f@u_ := And @@ (! StringFreeQ[u, #] & /@ Characters@"aeiouy"); Pick[l,f /@ l]

Perl 6 - 35 karakter

Terinspirasi oleh solusi Ruby @CarySwoveland:

say grep <a e i o u y>⊆*.comb,lines

Menyeleksi ini ( greps) setiap baris yang kembali Trueuntuk <a e i o u y> ⊆ *.comb, yang hanya cara mewah untuk meminta "adalah Set ('a','e','i','o','u','y')subset ( ⊆) dari Set terdiri dari surat-surat input ( *.comb)?"

Sebenarnya, keduanya <a e i o u y>dan *.combhanya membuat Lists: ⊆(atau (<=)jika Anda terjebak di ASCII) mengubahnya menjadi Setuntuk Anda.

Untuk mendapatkan jumlah baris yang dicetak, 42 karakter ini - 5 = 37 poin skrip akan menghasilkan itu juga:

say +lines.grep(<a e i o u y>⊆*.comb)».say

C - 96 byte

 char*gets(),*i,j[42];main(p){while(p=0,i=gets(j)){while(*i)p|=1<<*i++-96;~p&35684898||puts(j);}}

Saya menghemat beberapa byte kurung berkat kebetulan yang beruntung dari prioritas operator.

Javascript - Skor = 124 - 5 = 119 !!!

Edit: 17/02/14

function(l){z=[],l=l.split("\n"),t=0;while(r=l[t++]){o=0;for(i in k="aeiouy")o+=!~r.search(k[i]);if(o==0)z.push(r)}return z}

Terima kasih banyak kepada @Ismael Miguel karena membantu saya memotong ~ 12 karakter !

Saya menghapus bentuk fungsi notasi panah gemuk karena meskipun saya telah melihatnya mulai digunakan, itu tidak berfungsi. Tidak tahu kenapa ...

Untuk membuatnya bekerja:

Lewati semua kata yang dipisahkan oleh baris baru sebagai argumen ke fungsi seperti yang ditunjukkan di bawah ini.

Uji:

// string is "facetiously\nabstemiously\nhello\nauthoritatively\nbye"

var answer = (function(l){z=[],l=l.split("\n"),t=0;while(r=l[t++]){o=0;for(i in k="aeiouy")o+=!~r.search(k[i]);if(o==0)z.push(r)}return z})("facetiously\nabstemiously\nhello\nauthoritatively\nbye")

console.log(answer);
console.log(answer.length);

/* output ->    
    ["facetiously", "abstemiously", "authoritatively"]
    3 // count
*/

Bash + coreutils, 39

eval cat`printf "|grep %s" a e i o u y`

Mengambil input dari stdin.

sed 29 chars

/y/{/u/{/o/{/i/{/a/{/e/p}}}}}

Memesan dipilih dari frekuensi Surat di wikipedia untuk mempercepat pemeriksaan.

Di host saya:

time sed -ne '/a/{/e/{/i/{/o/{/u/{/y/p}}}}}' </usr/share/dict/american-english >/dev/null 
real    0m0.046s

dan

time sed -ne '/y/{/u/{/i/{/o/{/a/{/e/p}}}}}'</usr/share/dict/american-english >/dev/null 
real    0m0.030s

Bash (grep) - 36 byte

g=grep;$g y|$g u|$g o|$g i|$g a|$g e

Perhatikan urutan vokal yang diuji, paling tidak sering dulu. Untuk uji kasus, ini berjalan sekitar 3 kali lebih cepat dari pengujian agar dapat dilakukan. Dengan cara itu tes pertama menghilangkan sejumlah besar kata sehingga tes selanjutnya memiliki lebih sedikit pekerjaan yang harus dilakukan. Jelas ini tidak berpengaruh pada panjang kode. Banyak solusi lain yang diposting di sini akan mendapat manfaat yang sama dari melakukan tes dalam urutan ini.

D - 196

import std.regex,std.stream;void main(string[]a){auto f=new File(a[1]);while(!f.eof)if(!(a[0]=f.readLine.idup).match("(?=.*a)(?=.*e)(?=.*i)(?=.*o)(?=.*u)(?=.*y).*").empty)std.stdio.writeln(a[0]);}

Tidak golf :

import std.regex, std.stream;

void main( string[] a )
{
    auto f = new File( a[1] );

    while( !f.eof )
        if( !( a[0] = f.readLine.idup ).match( "(?=.*a)(?=.*e)(?=.*i)(?=.*o)(?=.*u)(?=.*y).*" ).empty )
            std.stdio.writeln( a[0] );
}

Penggunaan :C:\>rdmd vowels.d wordlist.txt

wordlist.txt harus mengandung kata daftar huruf kecil.

Rebol (104 karakter)

remove-each w d: read/lines %wordlist.txt[6 != length? collect[foreach n"aeiouy"[if find w n[keep n]]]]

Tidak golf:

remove-each w d: read/lines %wordlist.txt [
    6 != length? collect [foreach n "aeiouy" [if find w n [keep n]]]
]

dsekarang berisi daftar kata-kata yang ditemukan. Berikut ini contoh dari konsol Rebol:

>> ; paste in golf line.  This (REMOVE-EACH) returns the numbers of words removed from list

>> remove-each w d: read/lines %wordlist.txt[6 != length? collect[foreach n"aeiouy"[if find w n[keep n]]]]
== 58067

>> length? d
== 43

Smalltalk (36/57 karakter)

'corncob_lowercase.txt' asFilename contents select:[:w | w includesAll:'aeiouy']

untuk mendapatkan penghitungan, kirim #ukuran ke koleksi yang dihasilkan. Koleksi hasil mengandung 43 kata ('abstemiously' 'otoritatively' ... 'tidak diragukan lagi' 'unrecognisably')

Kode di atas memiliki 77 karakter, tetapi saya bisa mengganti nama file daftar kata menjadi 'w', jadi saya menghitung nama file sebagai 1 yang memberikan skor 57.

Apakah membaca file bagian dari masalah atau tidak? Jika tidak (lihat contoh lain), dan daftar kata sudah ada dalam koleksi c, maka kodenya berkurang menjadi:

c select:[:w | w includesAll:'aeiouy']

yaitu 36 karakter (dengan spasi yang bisa dihilangkan dihapus).

diperbarui: ruang yang tidak perlu dihapus

Sangat lambat tetapi dalam bash (81 karakter):

while read l;do [ `fold -w1<<<$l|sort -u|tr -dc ieaouy|wc -m` = 6 ]&&echo $l;done

EDIT: echo $l|fold -w1diganti dengan fold -w1<<<$lseperti yang disarankan oleh @ nyuszika7h

JavaScript - 95 byte

Ini golf saya.

function f(s){return[var a=s.match(/^(?=.*a)(?=.*e)(?=.*i)(?=.*o)(?=.*u)(?=.*y).*/),a.length];}

Dan saya juga ingin menunjukkan bahwa golf Anda sepertinya tidak menemukan semua kemunculan vokal.

Tidak Terkumpul:

function countVowels(string) {
  var regex   = /^(?=.*a)(?=.*e)(?=.*i)(?=.*o)(?=.*u)(?=.*y).*/;
  var matches = string.match(regex);
  var length  = matches.length;
  return [matches, length];

sortir + uniq + sed

Yang ini tidak cocok dengan kemunculan kata yang berulang. Itu juga tidak cocok dengan huruf 'y' jika ini terjadi pada awal kata.

sort wordlist.txt | uniq | sed -n '/a/p' | sed -n '/e/p' | sed -n '/i/p' | sed -n '/o/p' | sed -n '/u/p' | sed -nr '/^[^y]+y/p' 

Pesta

Tidak sesingkat OP, tetapi satu baris di Bash:

while read p; do if [ $(sed 's/[^aeiouy]//g' <<< $p | fold -w1 | sort | uniq | wc -l) -eq 6 ] ; then echo $p; fi; done < wordlist.txt

C # - 170

using System.Linq;class P{static void Main(string[]a){System.Console.Write(string.Join(",",System.IO.File.ReadAllLines(a[0]).Where(w=>"aeiouy".All(c=>w.Contains(c)))));}}

Diformat:

using System.Linq;
class P
{
    static void Main(string[] a) { 
        System.Console.Write(
            string.Join(",", System.IO.File.ReadAllLines(a[0])
                .Where(w => "aeiouy".All(c => w.Contains(c))))); 
    }
}

Tidak mood untuk menerapkan penghitungan tetapi harus mudah. Path ke daftar kata (versi huruf kecil) harus diteruskan ke program sebagai argumen pertama:

program.exe D:\foo\bar\corncob_lowercase.txt

Keluaran:

abstemiously,authoritatively,behaviourally,consequentially,counterrevolutionary,
disadvantageously,educationally,encouragingly,eukaryotic,evolutionarily,evolutio
nary,exclusionary,facetiously,gregariously,heterosexuality,homosexuality,importu
nately,inconsequentially,instantaneously,insurrectionary,intravenously,manoeuvra
bility,neurologically,neurotically,ostentatiously,pertinaciously,precariously,pr
ecautionary,questionably,revolutionary,simultaneously,supersonically,tenaciously
,uncomplimentary,uncontroversially,unconventionally,undemocratically,unemotional
ly,unequivocally,uninformatively,unintentionally,unquestionably,unrecognisably

Saya mengambil kebebasan mengeluarkan dan memisahkan kata-kata; tak satu pun dari yang ditentukan dalam aturan (yang menyatakan "harus menemukan semua kata", bukan bagaimana (dan JIKA) untuk output).

Termasuk hitungan (+ output): 192 - 5 = 187

using System.Linq;class P{static void Main(string[]a){var r=System.IO.File.ReadAllLines(a[0]).Where(w=>"aeiouy".All(c=>w.Contains(c)));System.Console.Write(string.Join(",",r)+" "+r.Count());}}

Keluaran:

abstemiously,authoritatively,behaviourally,consequentially,counterrevolutionary,
disadvantageously,educationally,encouragingly,eukaryotic,evolutionarily,evolutio
nary,exclusionary,facetiously,gregariously,heterosexuality,homosexuality,importu
nately,inconsequentially,instantaneously,insurrectionary,intravenously,manoeuvra
bility,neurologically,neurotically,ostentatiously,pertinaciously,precariously,pr
ecautionary,questionably,revolutionary,simultaneously,supersonically,tenaciously
,uncomplimentary,uncontroversially,unconventionally,undemocratically,unemotional
ly,unequivocally,uninformatively,unintentionally,unquestionably,unrecognisably 4
3

(Catat penghitungan di akhir: 43)

Tidak ada output ("harus menemukan semua kata"): 137 - 5 = 132

using System.Linq;class P{static void Main(string[]a){var r=System.IO.File.ReadAllLines(a[0]).Where(w=>"aeiouy".All(c=>w.Contains(c)));}}

(Membengkokkan aturan sedikit demi sedikit: tidak benar-benar) Ini menemukan semua kata dan penghitungan tersedia dengan mengeksekusi r.Count().

C-Sharp

Saya belum pernah melakukan ini sebelumnya dan saya tidak yakin apa prosedur postingnya. Tapi inilah yang saya pikirkan:

185 byte

Action<string>x=(s=>s.Split('\n').ToList().ForEach(w=>{if("aeiouy".All(v=>w.Contains(v)))Console.Write(w);}));using(var s=new StreamReader(@"C:\corncob_lowercase.txt"))x(s.ReadToEnd());

wordList= a List<string>dari semua kata.

jika Anda ingin menampilkan total:

219 - 5 = 214 byte

Action<string>x=(s=>{var t=0;s.Split('\n').ToList().ForEach(w=>{if("aeiouy".All(v=>w.Contains(v))){Console.Write(w);t++;}});Console.Write(t);});using(var s=new StreamReader(@"C:\corncob_lowercase.txt"))x(s.ReadToEnd());

// init
var words = "";
var vowels = "aeiouy";
var total = 0;

using (var stream = new StreamReader(@"C:\corncob_lowercase.txt"))
{
    // read file
    words = stream.ReadToEnd();

    // convert word to List<string>
    var wordList = words.Split('\n').ToList();

    // loop through each word in the list
    foreach (var word in wordList)

        // check if the current word contains all the vowels
        if(vowels.All (w => word.ToCharArray().Contains(w)))
        {
            // Count total
            total += 1;
            // Output word
            Console.Write(word);
        }

    // Display total
    Console.WriteLine(total);
}

vb.net (Nilai 91 = 96c - 5) _{* 0}

_{* 0 + 49c mnt}

Ini menciptakan enumerasi yang berisi semua kata yang berisi semua vokal.

Dim r=IO.File.ReadLines(a(0)).Where(Function(w)"aeiou".Intersect(w).Count=5)
Dim c=r.Count

Mathematica - 136 102

Fold[Flatten@StringCases@## &, 
Flatten@Import@"http://bit.ly/1iZE9kY",
___ ~~ # ~~ ___ & /@ Characters@"aeiouy"]

Tautan yang disingkat pergi ke http://www.mieliestronk.com/corncob_lowercase.txt