Давайте изучим химию рН почвы!

14

Андрей - химик, интересуется кислотностью растворов и сельским хозяйством. После нескольких месяцев исследований (Google не является его другом) он придумал следующую таблицу *, касающуюся уровня кислотности, понятного человеку, с точки зрения pH (потенциала водорода) :

         Деноминация | диапазон pH
                             |
    ------------------------- + ------------------------ -----   
    Ультракислотный | ниже 3,5
    ------------------------- + ------------------------ ------
    Чрезвычайно кислый | от 3,5 до 4,4
    ------------------------- + ------------------------ ------
    Очень сильно кислый | от 4,5 до 5,0
    ------------------------- + ------------------------ ------
    Сильно кислый | между 5.1 и 5.5
    ------------------------- + ------------------------ ------
    Умеренно кислый | от 5,6 до 6,0
    ------------------------- + ------------------------ ------
    Слегка кислый | от 6,1 до 6,5
    ------------------------- + ------------------------ ------
    Нейтральный | от 6,6 до 7,3
    ------------------------- + ------------------------ ------
    Слабощелочная | от 7,4 до 7,8
    ------------------------- + ------------------------ ------
    Умеренно щелочной | от 7,9 до 8,4
    ------------------------- + ------------------------ ------
    Сильно щелочной | от 8,5 до 9,0
    ------------------------- + ------------------------ ------
    Очень сильно щелочной | более 9,0

Учитывая неотрицательное десятичное число, представляющее pH вещества, выведите его Номинал. Вы можете взять ввод и обеспечить вывод любым стандартным методом . Типы данных, которые вы можете использовать для ввода:

  • терка
  • двойной
  • Тип данных стандартного десятичного числа вашего языка
  • строка

И вы должны вывести строку, представляющую деноминацию. Встроенные элементы, связанные с химией, запрещены (извините, Mathematica!) .

Правило аппроксимации: если полученный вами рН находится между верхней границей деноминации и нижней границей следующей (например, между 7,8 и 7,9), он приближается к ближайшему значению между этими двумя значениями: если pH ≥ верхняя граница сначала + 0,5, затем он должен получить второе наименование, но если pH <верхняя граница первого + 0,5, то он должен получить первый (например, 7,85 приближается к 7,9, но 7,84999 приближается к 7,8). См. Контрольные примеры для уточнения.

Тестовые случаи:

Вход -> Выход

6.40 -> Слегка кислый
8.399 -> Умеренно щелочной
3.876 -> Чрезвычайно кислый
10.60 -> Очень сильно щелочной     
0.012 -> Ультракислотный
7.30 -> Нейтральный
7.85 -> Умеренно щелочной (применяется правило приближения)
7.849 -> Слабощелочная (применяется правило приближения)
6.55 -> Нейтральный (применяется правило аппроксимации)

Это код-гольф , поэтому выигрывает самое короткое действительное представление (в байтах)!

* Андрей не придумал, это была Википедия !

code-golf  string  chemistry 
— Мистер Xcoder
источник
Песочница для тех, кто видит удаленные посты.
— г-н Xcoder
да, это на самом деле не работает с фактическими уровнями кислотности. что-нибудь более кислое, чем лимонный сок, ультра-кислое
— Разрушаемый лимон
@DestructibleLemon Если лимонный сок ультракислотный , то фторантимоновая кислота , которая ведет себя как -31,3, является полной атомной бомбой :))
— г-н Xcoder
о, я вижу, где ты ошибся. 3,5 ph не ультракислотный, но ультракислотный, если почва, в которой вы выращиваете растения, составляет 3,5 ph. я имею в виду, что эта таблица относится к ph почвы
— лимон
1
Брауни указывает на ответ в Python или Swift :)
— Mr. Xcoder

Ответы:

6

Желе ,  77 73  71 байт

“£RĿÐƭðṚ°ƲṂṾẒ=ʂXḣsịɠ<»Ḳµ,Ṛ;€"“¡D⁺“a&»j“¿<z»W¤ṙ3
×20<“FYeoy³ƓɗʋṆ‘Sị¢⁾. y

Монадическая ссылка, берущая номер и возвращающая список символов; или полная программа печати результата.

Попробуйте онлайн!

Как?

“ ... »Ḳµ,Ṛ;€"“¡D⁺“a&»j“¿<z»W¤ṙ3 - Link 1, name list: no arguments
“ ... »                          - compression of "Ultra Extremely Very.strongly Strongly Moderately Slightly"
       Ḳ                         - split at spaces
        µ                        - monadic chain separation, call that adjectives
          Ṛ                      - reverse adjectives
         ,                       - pair these two lists
              “¡D⁺“a&»           - compression of [" alkaline"," acidic"]
             "                   - zip with:
           ;€                    -   concatenate for €ach
                             ¤   - nilad followed by links as a nilad
                       “¿<z»     -   compression of "Neutral"
                            W    -   wrap in a list
                      j          - join
                              ṙ3 - rotate left by 3: ["Strongly alkaline","Moderately alkaline","Slightly alkaline","Neutral","Slightly acidic","Moderately acidic","Strongly acidic","Very.strongly acidic","Extremely acidic","Ultra acidic","Ultra alkaline","Extremely alkaline","Very.strongly alkaline"]

×20<“FYeoy³ƓɗʋṆ‘Sị¢⁾. y - Main link: number, pH
×20                     - multiply by 20
    “FYeqy³ƓɗʋṆ‘        - code-page indexes = [70,89,101,111,121,131,147,157,169,180]
   <                    - less than? (vectorises)
                        -   i.e.: pH < [3.5,4.45,5.05,5.55,6.05,6.55,7.35,7.85,8.45,9]
                S       - sum
                  ¢     - call last link (1) as a nilad
                 ị      - index into (1-indexed and modular)
                        - ...note that the sum is never 11 or 12, so "Ultra alkaline" and
                        -    "Extremely alkaline" wont be fetched, but that a sum of 0
                        -    fetches "Very.strongly alkaline", as required.
                   ⁾.   - literal list of characters ['.', ' ']
                      y - translate (replace any '.' with a ' ' i.e. for "Very.strongly")
                        - if running as a full program, implicit print
— Джонатан Аллан
источник
Мне всегда нравится соревнование между 05AB1E и Jelly ... Всего в 2 байтах
— Mr. Xcoder
3
Желе бьет 05AB1E?!?!
— Эрик Outgolfer
4

C # (.NET Core) , 236 байт

p=>{var l=new[]{70,89,101,111,121,131,147,157,169,180,280};var a="Ultra,Extremely,Very strongly,Strongly,Moderately,Slighty, acidic,Neutral, alkaline".Split(',');int i=0;for(;p*20>=l[i];i++);return i==6?a[7]:i<6?a[i]+a[6]:a[12-i]+a[8];}

Попробуйте онлайн!

Это решение считает, что pне может быть больше 14.

— Чарли
источник
4

T-SQL, 305 299 байт

DECLARE @ char(999)=REPLACE(REPLACE(REPLACE(REPLACE('SELECT TOP 1i FROM(VALUES(''Very s$#9&S$#8.4&Moderately#7.8&Slightly#7.3&Neutral'',6.5&Slightly@6&Moderately@5.5&S$@5&Very s$@4.4&Extremely@3.4&Ultra@-1))x(i,j),t WHERE j<a','#',' alkaline'','),'@',' acidic'','),'&','),('''),'$','trongly')EXEC(@)

Ввод осуществляется с уже существующей таблицей т с DECIMAL(4,1)колонками а , в соответствии с нашими правилами ввода / вывода .

Из-за DECIMAL(4,1)типа данных любое округление по «правилу аппроксимации» происходит при вводе значения во входную таблицу, поэтому мой код не требует явного управления.

После выполнения экономии пространства REPLACESэто простой SQL-запрос, объединяющий нашу таблицу ввода с нашим списком значений:

SELECT TOP 1 i
FROM(VALUES
    ('Very strongly alkaline',9),
    ('Strongly alkaline',8.4),
    ('Moderately alkaline',7.8),
    ('Slightly alkaline',7.3),
    ('Neutral',6.5),
    ('Slightly acidic',6),
    ('Moderately acidic',5.5),
    ('Strongly acidic',5),
    ('Very strongly acidic',4.4),
    ('Extremely acidic',3.4),
    ('Ultra acidic',-1)
) x(i,j), t
WHERE j<a

Я изменяю порядок, поэтому TOP 1выбираю первый, меньший, чем наше входное значение.

Даже эта форма (после удаления разрывов строк и лишних пробелов) довольно хороша - 318 байт . Добавляя заголовок DECLARE, REPLACESИ EXECстоит только со всеми повторяющимися фразами.

РЕДАКТИРОВАТЬ : сохранить 6 байтов, удалив ненужные ".0" на несколько значений

— BradC
источник
3

05AB1E , 81 80 79 77 76 74 байта

'Ĉ“¢³¿™ly³¾‚Òw““³¾§ÓªÅ“«#¦¦’šÉaƒ£’«Š’w¡Îic’«)˜™'wð:I•t{~À•ST+.¥70+20/‹Oè

Попробуйте онлайн!

Тестирование

объяснение

'Ĉ                   # push the string "neutral"
“¢³¿™ly³¾‚Òw“         # push the string "slightly moderately strongly veryw"
“³¾§ÓªÅ“              # push the string "strongly extremely ultra"
«                     # concatenate the top 2 items on the stack
 #                    # split on spaces
  Â                   # push a reversed copy
   ¦¦                 # remove the first 2 elements of the copy ("ultra", "extremely")
’šÉaƒ£’«              # append the string "walkaline" to each ("walk"+"a"+"line")
        Š             # move down 2 places on the stack
’w¡Îic’«              # append the string "wacidic" to each ("w"+"acid"+"ic")
        )˜            # wrap stack in a list and flatten
          ™           # title case each
           'wð:       # replace each instance of "w" with a space
I                     # push input
 •t{~À•               # push the base 255 compressed number 920006021
       ST+            # split to list of digits and add 10 to each
          .¥          # undelta (compute increments from 0)
            70+       # add 70 to each
               20/    # divide each by 20
                  ‹   # compute input less than for each
                   O  # sum
                    è # use this to index into list of strings
— Emigna
источник
Это удивительно долго для 05AB1E
— г-н Xcoder
Поздно, но все же любопытно: кто-нибудь напрямую программирует на этом языке (даже если только для игры в код) или это результат какого-то «компилятора»?
— avl42
1
@ avl42: мы пишем код на этом языке да (обычно только для игры в гольф). Я не хотел бы, чтобы кто-то использовал это в рабочем коде;) Это интерпретируемый язык, поэтому код, который вы пишете на этом языке, интерпретируется как код на python.
— Emigna
1
@Emigna Я бы сказал «переведенный», а не «интерпретированный» (это своего рода противоположное значение)
— anatolyg
@anatolyg: Да, вы правы там. Я всегда думаю, что интерпретируется по какой-то причине, вероятно, из-за Python. Это переведено на устный язык :)
— Emigna
2

Сетчатка , 228 байт

$
.00
\.(.)\.?(.).*
$1$2
.+
$*
1{900,}
VA
1{845,}
STA
1{785,}
MA
1{735,}
SLA
1{655,}
Neutral
1$
1 acidic
1{605,}
SL
1{555,}
M
1{505,}
ST
1{445,}
V
1{350,}
Extremely
1+
Ultra
M
Moderately
V
Very sT
T
trongly
L
lightly
A
 alkaline

Попробуйте онлайн! Ссылка включает тестовый набор. Объяснение:

$
.00
\.(.)\.?(.).*
$1$2

Умножьте ввод на 100, добавив суффикс к десятичной запятой и двум нулям, затем удалив десятичную точку и все, кроме двух цифр, после нее.

.+
$*

Преобразовать в одинарный.

1{900,}
VA
1{845,}
STA
1{785,}
MA
1{735,}
SLA

Обрабатывать все щелочи, превращая в сокращения, которые будут расширены позже.

1{655,}
Neutral

Ручка нейтральная.

1$
1 acidic

Все, что осталось, должно быть кислым. (Но оставьте 1 в случае, если рН равен 0,001)

1{605,}
SL
1{555,}
M
1{505,}
ST
1{445,}
V
1{350,}
Extremely
1+
Ultra

Обращайтесь со всеми кислотами.

M
Moderately
V
Very sT
T
trongly
L
lightly
A
 alkaline

Разверните аббревиатуры.

— Нил
источник
Вау, я думаю, что это заняло какое-то время, чтобы
— сыграть
2

Python 2 , 202 байта

-15 байт благодаря @JonathanAllan

lambda k:'Neutral_Slightly_Moderately_Strongly_Very strongly_Extremely_Ultra'.split('_')[abs(sum(round(k*10)>ord(i)for i in'",27<AINT')+(k>9)-(3.45<k<3.5)-6)]+(' acidic'*(k<6.55)or' alkaline'*(k>=7.35))

Попробуйте онлайн!

— овс
источник
2
Вы взяли мои очки брауни.
— г-н Xcoder
2

JavaScript (ES6), 192 189 185 184 байта

k=>([...'09544474540'].some(n=>(i--,k-=++n)<0,i=7,k=k*10-33.5),'Neutral,Slightly,Moderately,Strongly,Very strongly,Extremely,Ultra'.split`,`[i<0?-i:i]+(i?i>0?' acidic':' alkaline':''))

Контрольные примеры

Показать фрагмент кода

— Arnauld
источник
1

Excel, 240 байт

=CHOOSE((A1<6.55)+(A1<6.05)+(A1<5.55)+(A1<5.05)+(A1<4.45)+(A1<3.5)+(A1>=7.35)+(A1>=7.85)+(A1>=8.45)+(A1>9)+1,"Neutral","Slightly","Moderately","Strongly","Very Strongly","Extremely","Ultra")&IF(A1<6.55," acidic",IF(A1>=7.35," alkaline",""))
— Wernisch
источник
0

Javascript, 222 209 байт

x=>'Very strongly,Strongly,Moderately,Slightly,Neutral,Extremely,Ultra'.split(',',7,x-=0.049)[x>9?0:x>8.4?1:x>7.8?2:x>7.3?3:x>6.5?4:x>6?3:x>5.5?2:x>5?1:x>4.4?0:x>3.5?5:6]+(x<6.5?' acidic':x>7.3?' alkaline':'')

Все еще играю в гольф это немного

var f = x=>'Very strongly,Strongly,Moderately,Slightly,Neutral,Extremely,Ultra'.split(',',7,x-=0.049)[x>9?0:x>8.4?1:x>7.8?2:x>7.3?3:x>6.5?4:x>6?3:x>5.5?2:x>5?1:x>4.4?0:x>3.5?5:6]+(x<6.5?' acidic':x>7.3?' alkaline':'')

console.log(f(6.40));
console.log(f(8.399));
console.log(f(3.876));
console.log(f(10.60));
console.log(f(0.012));
console.log(f(7.30));
console.log(f(7.85));
console.log(f(7.849));
console.log(f(6.55));
Развернуть фрагмент

— Томас В.
источник
Я не думаю, что вам нужно назначить функцию переменной.
— Захари
Используя наш сайт, вы подтверждаете, что прочитали и поняли нашу Политику в отношении файлов cookie и Политику конфиденциальности.
Licensed under cc by-sa 3.0 with attribution required.