Saya melihat pertanyaan ini di https://mathematica.stackexchange.com/ dan saya pikir itu sangat keren. Mari kita buat kepingan salju dengan bahasa pemrograman lain.
Ini adalah kutipan dari pertanyaan awal:
'Ini musimnya ... Dan sudah saatnya saya mengajukan pertanyaan pertama saya di Mathematica Stack Exchange. Jadi, inilah perjalanan liburan bagi Anda para guru Grafik (dan P-Chem?).
Apa kode terbaik Anda untuk menghasilkan kepingan salju (acak)? Secara acak saya maksudkan dengan bentuk yang berbeda yang akan meniru keragaman yang ditunjukkan oleh kepingan salju nyata. Berikut ini tautan untuk memiliki gagasan: http://www.its.caltech.edu/~atomic/snowcrystals/ , lebih khusus di sini adalah berbagai jenis kepingan salju: http://www.its.caltech.edu/~atomic /snowcrystals/class/class.htm . Di sini kita mencoba untuk menghasilkan kepingan salju tunggal (mungkin dengan parameter yang berbeda untuk menyesuaikan bentuknya), semakin realistis, semakin baik. Renderings tiga dimensi, untuk menambahkan transparansi dan warna juga diterima. Lepaskan fantasi Anda, melampaui fraktal yang biasa!
Aturan:
- Hasilkan kepingan salju tunggal acak.
- Serpihannya harus simetri radial enam kali lipat.
- Tidak perlu realistis. (Tapi lebih suka)
- Jawaban karakter tunggal, seperti *, ⚹, ❅, ❄, ❆ tidak diperbolehkan.
- Sebagian besar kemenangan menang!
'*⚹❅❄❆'[Math.floor(Math.random()*5)]
.Jawaban:
Bash dan ImageMagick
Contoh dijalankan:
sumber
Javascript
Biola terletak di sini
Fiddle lebih mewah terletak di sini
Ini bukan golf, bukan dengan pukulan panjang. Juga diperlukan fungsi Perlin Noise dan Seeded Random (keduanya termasuk dalam Fiddle, seeded random diperlukan untuk Perlin). Fiddle juga menampilkan seed saat ini untuk melacak favorit;)
sumber
ZXSpectrum Basic, 21
Yah, aku tidak bisa melakukan simetri 6 kali lipat, tapi aku bisa mendapatkan segala macam keacakan
menggunakan ZX Spectrum: Emulator Here
Ingat bahwa kata kunci adalah karakter tunggal dalam ZX Spectrum
Untuk memasukkan perintah ini pada emulator:
TAB
,1
ENTERq 40,40 ENTER
w 40,40, TAB
t
CTRL+ B5000ENTER(Jangan suka keyboard spektrum)
sumber